diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-02-22 16:10:25 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-02-22 16:10:25 -0500 |
| commit | 85cf99a95c910841f197ca911bb13d044456de7f (patch) | |
| tree | 7f9fc4189681a0186e8ecbfcc84a0eec50d03be9 /src/reduce_local.sml | |
| parent | c60437564b5265a6f0735bd402abead87782d36a (diff) | |
Start of kind polymorphism, up to the point where demo/hello elaborates with updated Basis/Top
Diffstat (limited to 'src/reduce_local.sml')
| -rw-r--r-- | src/reduce_local.sml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/reduce_local.sml b/src/reduce_local.sml index 7de7d799..25b1023a 100644 --- a/src/reduce_local.sml +++ b/src/reduce_local.sml @@ -107,8 +107,6 @@ fun exp env (all as (e, loc)) = | ECut (e, c, others) => (ECut (exp env e, c, others), loc) | ECutMulti (e, c, others) => (ECutMulti (exp env e, c, others), loc) - | EFold _ => all - | ECase (e, pes, others) => let fun patBinds (p, _) = |