Mercurial > urweb
diff src/reduce.sml @ 1314:6c2e565adca6
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)