summaryrefslogtreecommitdiff
path: root/src/mono_reduce.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-05-14 18:13:09 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-05-14 18:13:09 -0400
commit79655b086c036d07806d0c345ffc9e6683891fe4 (patch)
tree87cfafea0f563a41839fe248cd4de81e8a8efed1 /src/mono_reduce.sml
parentc69e0c432107906261ab4c56cd88a8cfab3191fb (diff)
Fix nasty bugs with longjmp() looping for uw_set_input(); and bad variable indexes for nested JavaScript in jscomp
Diffstat (limited to 'src/mono_reduce.sml')
-rw-r--r--src/mono_reduce.sml3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/mono_reduce.sml b/src/mono_reduce.sml
index 5a2aca85..94c57bac 100644
--- a/src/mono_reduce.sml
+++ b/src/mono_reduce.sml
@@ -536,7 +536,8 @@ fun reduce file =
and reduceExp env = U.Exp.mapB {typ = typ, exp = exp, bind = bind} env
- fun decl env d = d
+ fun decl env d = ((*Print.preface ("d", MonoPrint.p_decl env (d, ErrorMsg.dummySpan));*)
+ d)
in
U.File.mapB {typ = typ, exp = exp, decl = decl, bind = bind} E.empty file
end