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_print.sml | |
parent | 76e5e75ab203b7a8b7701b9d3e496653bd213345 (diff) |
Make Scriptcheck catch more script/message-passing uses, and move the phase earlier in compilation
Diffstat (limited to 'src/mono_print.sml')
-rw-r--r-- | src/mono_print.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/mono_print.sml b/src/mono_print.sml index e5ef4cf8..12b36f2a 100644 --- a/src/mono_print.sml +++ b/src/mono_print.sml @@ -530,7 +530,7 @@ fun p_decl env (dAll as (d, _) : decl) = p_policy env p] | DOnError _ => string "ONERROR" -fun p_file env file = +fun p_file env (file, _) = let val (pds, _) = ListUtil.foldlMap (fn (d, env) => (p_decl env d, |