Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
800:e92cfac1608f 801:5f49a6b759cb
534 | U.Decl.RelE (x, t) => E.pushERel env x t NONE 534 | U.Decl.RelE (x, t) => E.pushERel env x t NONE
535 | U.Decl.NamedE (x, n, t, eo, s) => E.pushENamed env x n t (Option.map (reduceExp env) eo) s 535 | U.Decl.NamedE (x, n, t, eo, s) => E.pushENamed env x n t (Option.map (reduceExp env) eo) s
536 536
537 and reduceExp env = U.Exp.mapB {typ = typ, exp = exp, bind = bind} env 537 and reduceExp env = U.Exp.mapB {typ = typ, exp = exp, bind = bind} env
538 538
539 fun decl env d = d 539 fun decl env d = ((*Print.preface ("d", MonoPrint.p_decl env (d, ErrorMsg.dummySpan));*)
540 d)
540 in 541 in
541 U.File.mapB {typ = typ, exp = exp, decl = decl, bind = bind} E.empty file 542 U.File.mapB {typ = typ, exp = exp, decl = decl, bind = bind} E.empty file
542 end 543 end
543 544
544 end 545 end