diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-14 09:11:58 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-14 09:11:58 -0400 |
| commit | f2fff6993d2b138c2efc5cadaa53ecbdb1c2e1b3 (patch) | |
| tree | 40c991c6a8032bc73433e5d3f9c1db78a98674ef /src/unpoly.sml | |
| parent | fa0e09c65b849b7bad86bfd457e7cf7b0771df9a (diff) | |
Fix a nasty binding bug in CoreUtil
Diffstat (limited to 'src/unpoly.sml')
| -rw-r--r-- | src/unpoly.sml | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/src/unpoly.sml b/src/unpoly.sml index 56406636..6f838392 100644 --- a/src/unpoly.sml +++ b/src/unpoly.sml @@ -138,14 +138,7 @@ fun exp (e, st : state) = in trim (t, e, cargs) end - | (_, _, []) => - (*let - val e = foldl (fn ((_, n, n_old, _, _, _), e) => - unpolyNamed (n_old, ENamed n) e) - e vis - in*) - SOME (t, e) - (*end*) + | (_, _, []) => SOME (t, e) | _ => NONE in (*Print.prefaces "specialize" |