changeset 517:aceb2d982f8f

Catch another unneeded lift in ElabEnv.pushCRel
author Adam Chlipala <adamc@hcoop.net>
date Thu, 27 Nov 2008 11:06:10 -0500 (2008-11-27)
parents 11fc77fb8257
children 685d232bd1a5
files src/elab_env.sml
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
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,