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/checknest.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/checknest.sml')
-rw-r--r-- | src/checknest.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/checknest.sml b/src/checknest.sml index 1147d3e6..05ad8e9a 100644 --- a/src/checknest.sml +++ b/src/checknest.sml @@ -44,7 +44,7 @@ fun expUses globals = | ENone _ => IS.empty | ESome (_, e) => eu e | EFfi _ => IS.empty - | EFfiApp (_, _, es) => foldl IS.union IS.empty (map eu es) + | EFfiApp (_, _, es) => foldl IS.union IS.empty (map (eu o #1) es) | EApp (e, es) => foldl IS.union (eu e) (map eu es) | EUnop (_, e) => eu e @@ -106,7 +106,7 @@ fun annotateExp globals = | ENone _ => e | ESome (t, e) => (ESome (t, ae e), loc) | EFfi _ => e - | EFfiApp (m, f, es) => (EFfiApp (m, f, map ae es), loc) + | EFfiApp (m, f, es) => (EFfiApp (m, f, map (fn (e, t) => (ae e, t)) es), loc) | EApp (e, es) => (EApp (ae e, map ae es), loc) | EUnop (uo, e) => (EUnop (uo, ae e), loc) |