From 0d47ed0262cb6bf4dd95d482fbe6ce9c63e66285 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 17 May 2009 14:36:55 -0400 Subject: Fix argument ordering bug in fuse; fix case subsitution bug in MonoReduce --- src/fuse.sml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/fuse.sml') diff --git a/src/fuse.sml b/src/fuse.sml index b6bd6b47..ad1958f7 100644 --- a/src/fuse.sml +++ b/src/fuse.sml @@ -78,7 +78,7 @@ fun fuse file = val (body, args) = getBody (e, args) val body = MonoOpt.optExp (EWrite body, loc) - val (body, _) = foldl (fn ((x, dom), (body, ran)) => + val (body, _) = foldr (fn ((x, dom), (body, ran)) => ((EAbs (x, dom, ran, body), loc), (TFun (dom, ran), loc))) (body, (TRecord [], loc)) args -- cgit v1.2.3