From 3d21914a4b831ee9c727dd4296e56961c1e4ea89 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Fri, 15 Mar 2013 16:09:55 -0400 Subject: Make Scriptcheck catch more script/message-passing uses, and move the phase earlier in compilation --- src/name_js.sml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/name_js.sml') diff --git a/src/name_js.sml b/src/name_js.sml index 70ac000c..53abd7a3 100644 --- a/src/name_js.sml +++ b/src/name_js.sml @@ -72,7 +72,7 @@ fun squish vs = U.Exp.mapB {typ = fn x => x, fun rewrite file = let - val (file, _) = ListUtil.foldlMapConcat (fn (d, nextName) => + val (ds, _) = ListUtil.foldlMapConcat (fn (d, nextName) => let val (d, (nextName, newDs)) = U.Decl.foldMapB {typ = fn x => x, @@ -143,9 +143,9 @@ fun rewrite file = DValRec vis => [(DValRec (vis @ newDs), #2 d)] | _ => List.revAppend (map (fn vi => (DVal vi, #2 d)) newDs, [d]), nextName) - end) (U.File.maxName file + 1) file + end) (U.File.maxName file + 1) (#1 file) in - file + (ds, #2 file) end end -- cgit v1.2.3