diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2013-03-15 16:09:55 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2013-03-15 16:09:55 -0400 |
| commit | 115361547594fd6773de3a0c9235fccd9962dd9c (patch) | |
| tree | 23527da3ec268f47015698c307c3d19f5c35b594 /src/fuse.sml | |
| parent | 27dcf1a2bd96d9b1b4cd77674da115e38ff098d4 (diff) | |
Make Scriptcheck catch more script/message-passing uses, and move the phase earlier in compilation
Diffstat (limited to 'src/fuse.sml')
| -rw-r--r-- | src/fuse.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fuse.sml b/src/fuse.sml index 565fc591..5193e59a 100644 --- a/src/fuse.sml +++ b/src/fuse.sml @@ -144,9 +144,9 @@ fun fuse file = (funcs, maxName)) end - val (file, _) = ListUtil.foldlMap doDecl (IM.empty, U.File.maxName file + 1) file + val (ds, _) = ListUtil.foldlMap doDecl (IM.empty, U.File.maxName file + 1) (#1 file) in - file + (ds, #2 file) end end |