Mercurial > urweb

diff src/reduce.sml @ 1314:6c2e565adca6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixes for nasty bugs in Reduce and Especialize
author Adam Chlipala <adam@chlipala.net>
date Tue, 19 Oct 2010 17:54:49 -0400
parents b4480a56cab7
children 75d77fbe7c94
line wrap: on
line diff
--- a/src/reduce.sml	Tue Oct 19 15:26:12 2010 -0400
+++ b/src/reduce.sml	Tue Oct 19 17:54:49 2010 -0400
@@ -658,7 +658,7 @@
                                 if ESpecialize.functionInside t then
                                     exp (KnownE e1 :: env) e2
                                 else
-                                    (ELet (x, con env t, exp env e1, exp (UnknownE :: env) e2), loc)
+                                    (ELet (x, t, exp env e1, exp (UnknownE :: env) e2), loc)
                             end
 
                           | EServerCall (n, es, t) => (EServerCall (n, map (exp env) es, con env t), loc)