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/untangle.sml | |
| parent | 27dcf1a2bd96d9b1b4cd77674da115e38ff098d4 (diff) | |
Make Scriptcheck catch more script/message-passing uses, and move the phase earlier in compilation
Diffstat (limited to 'src/untangle.sml')
| -rw-r--r-- | src/untangle.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/untangle.sml b/src/untangle.sml index 373cfe18..bcb90ed6 100644 --- a/src/untangle.sml +++ b/src/untangle.sml @@ -43,7 +43,7 @@ fun exp (e, s) = | _ => s -fun untangle file = +fun untangle (file : file) = let fun decl (dAll as (d, loc)) = case d of @@ -208,7 +208,7 @@ fun untangle file = end | _ => [dAll] in - ListUtil.mapConcat decl file + (ListUtil.mapConcat decl (#1 file), #2 file) end end |