diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-01-07 15:56:22 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-01-07 15:56:22 -0500 |
| commit | 09b5839acfe26561fa87c89168133fc93c1083cc (patch) | |
| tree | 587292f9b176c383c7b6332cdc30a817e355fe1d /src/especialize.sml | |
| parent | bd78657f61d3783f9a282bf38ad0cbcb8b8bf5d4 (diff) | |
First part of changes to avoid depending on C function call argument order of evaluation (omitting normal Ur function calls, so far)
Diffstat (limited to 'src/especialize.sml')
| -rw-r--r-- | src/especialize.sml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/especialize.sml b/src/especialize.sml index 8720a7b1..74babe47 100644 --- a/src/especialize.sml +++ b/src/especialize.sml @@ -180,7 +180,12 @@ fun specialize' (funcs, specialized) file = | EFfi _ => (e, st) | EFfiApp (m, x, es) => let - val (es, st) = ListUtil.foldlMap (fn (e, st) => exp (env, e, st)) st es + val (es, st) = ListUtil.foldlMap (fn ((e, t), st) => + let + val (e, st) = exp (env, e, st) + in + ((e, t), st) + end) st es in ((EFfiApp (m, x, es), loc), st) end |