diff options
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" |