Mercurial > urweb

diff src/mono_reduce.sml @ 801:5f49a6b759cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix nasty bugs with longjmp() looping for uw_set_input(); and bad variable indexes for nested JavaScript in jscomp
author Adam Chlipala <adamc@hcoop.net>
date Thu, 14 May 2009 18:13:09 -0400
parents e92cfac1608f
children 3f3b211f9bca
line wrap: on
line diff
--- a/src/mono_reduce.sml	Thu May 14 13:18:31 2009 -0400
+++ b/src/mono_reduce.sml	Thu May 14 18:13:09 2009 -0400
@@ -536,7 +536,8 @@
 
         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