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 | 3d21914a4b831ee9c727dd4296e56961c1e4ea89 (patch) | |
| tree | 23527da3ec268f47015698c307c3d19f5c35b594 /src/mono_reduce.sml | |
| parent | 76e5e75ab203b7a8b7701b9d3e496653bd213345 (diff) | |
Make Scriptcheck catch more script/message-passing uses, and move the phase earlier in compilation
Diffstat (limited to 'src/mono_reduce.sml')
| -rw-r--r-- | src/mono_reduce.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/mono_reduce.sml b/src/mono_reduce.sml index 71c87095..e7fac5ed 100644 --- a/src/mono_reduce.sml +++ b/src/mono_reduce.sml @@ -308,7 +308,7 @@ val freeInAbs = U.Exp.existsB {typ = fn _ => false, U.Exp.RelE _ => n + 1 | _ => n} 0 -fun reduce file = +fun reduce (file : file) = let val (timpures, impures, absCounts) = foldl (fn ((d, _), (timpures, impures, absCounts)) => @@ -366,7 +366,7 @@ fun reduce file = absCounts vis) | _ => (timpures, impures, absCounts) end) - (IS.empty, IS.empty, IM.empty) file + (IS.empty, IS.empty, IM.empty) (#1 file) val uses = U.File.fold {typ = fn (_, m) => m, exp = fn (e, m) => |