Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
183:c0ea24dcb86f 184:98c29e3986d3
121 | _ => e) 121 | _ => e)
122 122
123 | EApp ((EAbs (_, _, _, e1), loc), e2) => 123 | EApp ((EAbs (_, _, _, e1), loc), e2) =>
124 #1 (reduceExp env (subExpInExp (0, e2) e1)) 124 #1 (reduceExp env (subExpInExp (0, e2) e1))
125 125
126 | ECase (disc, pes, t) => 126 | ECase (disc, pes, _) =>
127 (case ListUtil.search (fn (p, body) => 127 (case ListUtil.search (fn (p, body) =>
128 case match (env, p, disc) of 128 case match (env, p, disc) of
129 NONE => NONE 129 NONE => NONE
130 | SOME env => SOME (#1 (reduceExp env body))) pes of 130 | SOME env => SOME (#1 (reduceExp env body))) pes of
131 NONE => e 131 NONE => e