From 09b5839acfe26561fa87c89168133fc93c1083cc Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 7 Jan 2012 15:56:22 -0500
Subject: First part of changes to avoid depending on C function call argument
 order of evaluation (omitting normal Ur function calls, so far)

---
 src/reduce_local.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/reduce_local.sml')

diff --git a/src/reduce_local.sml b/src/reduce_local.sml
index 0e87e34a..a6e4f7fc 100644
--- a/src/reduce_local.sml
+++ b/src/reduce_local.sml
@@ -256,7 +256,7 @@ fun exp env (all as (e, loc)) =
       | 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
-- 
cgit v1.2.3