Mercurial > urweb

diff src/reduce.sml @ 1663:0577be31a435

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 a99b743a3087
children 62c18ecbfec4
line wrap: on
line diff
--- a/src/reduce.sml	Sat Jan 07 11:01:21 2012 -0500
+++ b/src/reduce.sml	Sat Jan 07 15:56:22 2012 -0500
@@ -493,7 +493,7 @@
                                        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