diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-14 18:13:09 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-14 18:13:09 -0400 |
| commit | 757f1700cc23e0d8737a5e2f81d4b065420dce94 (patch) | |
| tree | 87cfafea0f563a41839fe248cd4de81e8a8efed1 /src/mono_reduce.sml | |
| parent | df3de8503f41b7f317167273e636cd722ba31bc1 (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.sml | 3 |
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 |