Mercurial > urweb

diff src/mono_reduce.sml @ 184:98c29e3986d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Push write inside case
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 16:53:13 -0400
parents c0ea24dcb86f
children 19ee24bffbc0
line wrap: on
line diff
--- a/src/mono_reduce.sml	Sun Aug 03 13:30:27 2008 -0400
+++ b/src/mono_reduce.sml	Sun Aug 03 16:53:13 2008 -0400
@@ -123,7 +123,7 @@
       | 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