Mercurial > urweb
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 1662:edf86cef0dba | 1663:0577be31a435 |
|---|---|
| 254 find (n, env, 0, 0, 0) | 254 find (n, env, 0, 0, 0) |
| 255 end | 255 end |
| 256 | ENamed _ => all | 256 | ENamed _ => all |
| 257 | ECon (dk, pc, cs, eo) => (ECon (dk, patCon pc, map (con env) cs, Option.map (exp env) eo), loc) | 257 | ECon (dk, pc, cs, eo) => (ECon (dk, patCon pc, map (con env) cs, Option.map (exp env) eo), loc) |
| 258 | EFfi _ => all | 258 | EFfi _ => all |
| 259 | EFfiApp (m, f, es) => (EFfiApp (m, f, map (exp env) es), loc) | 259 | EFfiApp (m, f, es) => (EFfiApp (m, f, map (fn (e, t) => (exp env e, con env t)) es), loc) |
| 260 | 260 |
| 261 | EApp (e1, e2) => | 261 | EApp (e1, e2) => |
| 262 let | 262 let |
| 263 val e1 = exp env e1 | 263 val e1 = exp env e1 |
| 264 val e2 = exp env e2 | 264 val e2 = exp env e2 |