Mercurial > urweb

comparison src/compiler.sml @ 1800:38297294cf98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New NameJs phase, still needing some debugging
author Adam Chlipala <adam@chlipala.net>
date Thu, 02 Aug 2012 18:12:37 -0400
parents 3d922a28370b
children 28986cfac833
comparison
equal deleted inserted replaced
1799:3d922a28370b 1800:38297294cf98
1344 print = MonoPrint.p_file MonoEnv.empty 1344 print = MonoPrint.p_file MonoEnv.empty
1345 } 1345 }
1346 1346
1347 val toIflow = transform iflow "iflow" o toMono_opt2 1347 val toIflow = transform iflow "iflow" o toMono_opt2
1348 1348
1349 val namejs = {
1350 func = NameJS.rewrite,
1351 print = MonoPrint.p_file MonoEnv.empty
1352 }
1353
1354 val toNamejs = transform namejs "namejs" o toIflow
1355
1356 val toNamejs_untangle = transform untangle "namejs_untangle" o toNamejs
1357
1349 val jscomp = { 1358 val jscomp = {
1350 func = JsComp.process, 1359 func = JsComp.process,
1351 print = MonoPrint.p_file MonoEnv.empty 1360 print = MonoPrint.p_file MonoEnv.empty
1352 } 1361 }
1353 1362
1354 val toJscomp = transform jscomp "jscomp" o toIflow 1363 val toJscomp = transform jscomp "jscomp" o toNamejs_untangle
1355 1364
1356 val toMono_opt3 = transform mono_opt "mono_opt3" o toJscomp 1365 val toMono_opt3 = transform mono_opt "mono_opt3" o toJscomp
1357 1366
1358 val fuse = { 1367 val fuse = {
1359 func = Fuse.fuse, 1368 func = Fuse.fuse,