diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2013-08-10 10:13:40 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2013-08-10 10:13:40 -0400 |
| commit | 42fab45125992244c499ec5ac64e0376109bd4cb (patch) | |
| tree | 28bfd11f2f5b4745ddfdaf6c3e42e7f70fc72b59 /src/reduce.sml | |
| parent | 7ae10a42f8539c5285fcd53a901ae8ef4ecdb8cf (diff) | |
Expand coverage of 'functionInside' for Especialize
Diffstat (limited to 'src/reduce.sml')
| -rw-r--r-- | src/reduce.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/reduce.sml b/src/reduce.sml index aa5408b0..933a4d94 100644 --- a/src/reduce.sml +++ b/src/reduce.sml @@ -558,7 +558,7 @@ fun kindConAndExp (namedC, namedE) = (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 @@ fun kindConAndExp (namedC, namedE) = 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) |