diff options
Diffstat (limited to 'src/mono_reduce.sml')
| -rw-r--r-- | src/mono_reduce.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/mono_reduce.sml b/src/mono_reduce.sml index e780d6d8..07634a57 100644 --- a/src/mono_reduce.sml +++ b/src/mono_reduce.sml @@ -123,7 +123,7 @@ fun exp env e = | EApp ((EAbs (_, _, _, e1), loc), e2) => #1 (reduceExp env (subExpInExp (0, e2) e1)) - | ECase (disc, pes, t) => + | ECase (disc, pes, _) => (case ListUtil.search (fn (p, body) => case match (env, p, disc) of NONE => NONE |