diff options
author | Ziv Scully <ziv@mit.edu> | 2015-09-21 10:16:55 -0400 |
---|---|---|
committer | Ziv Scully <ziv@mit.edu> | 2015-09-21 10:16:55 -0400 |
commit | 3e42cccfaef1157ca14cd102959b867c996503a9 (patch) | |
tree | f6f9a9c57702517edc66c096a50efe0a6e7dca46 /src/jscomp.sml | |
parent | 68879bbb4bf58e4709c96ba6904071ce5d24a906 (diff) |
Revert to revision 2222.
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r-- | src/jscomp.sml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index 29b11820..e5f7d234 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -79,7 +79,7 @@ fun process (file : file) = someTs) someTs dts, nameds) | (_, state) => state) - (IM.empty, IM.empty) (#decls file) + (IM.empty, IM.empty) (#1 file) fun str loc s = (EPrim (Prim.String (Prim.Normal, s)), loc) @@ -1335,7 +1335,7 @@ fun process (file : file) = listInjectors = TM.empty, decoders = IM.empty, maxName = U.File.maxName file + 1} - (#decls file) + (#1 file) val inf = TextIO.openIn (OS.Path.joinDirFile {dir = Settings.libJs (), file = "urweb.js"}) fun lines acc = @@ -1365,7 +1365,7 @@ fun process (file : file) = "" in TextIO.closeIn inf; - {decls = (DJavaScript script, ErrorMsg.dummySpan) :: ds, sideInfo = #sideInfo file} + ((DJavaScript script, ErrorMsg.dummySpan) :: ds, #2 file) end end |