Mercurial > urweb
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,