diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-17 14:36:55 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-17 14:36:55 -0400 |
| commit | 7bbee7c3f41f0386072d0d73cd3477d0a4734ca9 (patch) | |
| tree | 37190bd18788573834dedcc81888776b49cd758e /src/fuse.sml | |
| parent | 8d4ec5e3186b939a3c4d4a04e0e834836dd2c779 (diff) | |
Fix argument ordering bug in fuse; fix case subsitution bug in MonoReduce
Diffstat (limited to 'src/fuse.sml')
| -rw-r--r-- | src/fuse.sml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |