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.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/reduce.sml')

diff --git a/src/reduce.sml b/src/reduce.sml
index 9371e9bd..1fbf526d 100644
--- a/src/reduce.sml
+++ b/src/reduce.sml
@@ -493,7 +493,7 @@ fun kindConAndExp (namedC, namedE) =
                                        bindType (CFfi ("Basis", "signal"), loc) loc)], 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 (
                            (EApp
-- 
cgit v1.2.3