Mercurial > urweb
diff src/reduce.sml @ 1863:32784d27b5bc
Expand coverage of 'functionInside' for Especialize
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sat, 10 Aug 2013 10:13:40 -0400 |
parents | e15234fbb163 |
children | f463c773ed6a |
line wrap: on
line diff
--- a/src/reduce.sml Fri Aug 09 16:13:44 2013 -0400 +++ b/src/reduce.sml Sat Aug 10 10:13:40 2013 -0400 @@ -558,7 +558,7 @@ (ELet (x, t, e1', exp (UnknownE :: env') (EApp (e2', E.liftExpInExp 0 e2), loc)), loc) | EAbs (x, dom, _, b) => - if count b <= 1 orelse passive e2 orelse ESpecialize.functionInside dom then + if count b <= 1 orelse passive e2 orelse ESpecialize.functionInside IS.empty dom then let val r = exp (KnownE e2 :: env') b in @@ -798,7 +798,7 @@ val t = con env t in - if notFfi t andalso (passive e1' orelse count e2 <= 1 orelse ESpecialize.functionInside t) then + if notFfi t andalso (passive e1' orelse count e2 <= 1 orelse ESpecialize.functionInside IS.empty t) then exp (KnownE e1 :: env) e2 else (ELet (x, t, e1', exp (UnknownE :: env) e2), loc)