Mercurial > urweb

diff src/elab_env.sml @ 517:aceb2d982f8f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Catch another unneeded lift in ElabEnv.pushCRel
author Adam Chlipala <adamc@hcoop.net>
date Thu, 27 Nov 2008 11:06:10 -0500
parents 0fc08d1750e1
children 44958d74c43f
line wrap: on
line diff
--- a/src/elab_env.sml	Thu Nov 27 10:57:56 2008 -0500
+++ b/src/elab_env.sml	Thu Nov 27 11:06:10 2008 -0500
@@ -281,7 +281,7 @@
                           (#classes env),
 
          renameE = SM.map (fn Rel' (n, c) => Rel' (n, lift c)
-                            | Named' (n, c) => Named' (n, lift c)) (#renameE env),
+                            | Named' (n, c) => Named' (n, c)) (#renameE env),
          relE = map (fn (x, c) => (x, lift c)) (#relE env),
          namedE = #namedE env,