Mercurial > urweb
diff src/reduce_local.sml @ 1663:0577be31a435
First part of changes to avoid depending on C function call argument order of evaluation (omitting normal Ur function calls, so far)
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sat, 07 Jan 2012 15:56:22 -0500 |
parents | b4480a56cab7 |
children | e15234fbb163 |
line wrap: on
line diff
--- a/src/reduce_local.sml Sat Jan 07 11:01:21 2012 -0500 +++ b/src/reduce_local.sml Sat Jan 07 15:56:22 2012 -0500 @@ -256,7 +256,7 @@ | ENamed _ => all | ECon (dk, pc, cs, eo) => (ECon (dk, patCon pc, map (con env) cs, Option.map (exp env) eo), loc) | EFfi _ => all - | EFfiApp (m, f, es) => (EFfiApp (m, f, map (exp env) es), loc) + | EFfiApp (m, f, es) => (EFfiApp (m, f, map (fn (e, t) => (exp env e, con env t)) es), loc) | EApp (e1, e2) => let