Mercurial > urweb

comparison src/compiler.sml @ 567:1901db85acb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of JsComp
author Adam Chlipala <adamc@hcoop.net>
date Sat, 20 Dec 2008 14:19:21 -0500
parents 4929cf86bc03
children 57018f21cd5c
comparison
equal deleted inserted replaced
566:a152905c3c3b 567:1901db85acb4
509 print = MonoPrint.p_file MonoEnv.empty 509 print = MonoPrint.p_file MonoEnv.empty
510 } 510 }
511 511
512 val toMono_shake = transform mono_shake "mono_shake1" o toMono_reduce 512 val toMono_shake = transform mono_shake "mono_shake1" o toMono_reduce
513 513
514 val toMono_opt2 = transform mono_opt "mono_opt2" o toMono_shake 514 val jscomp = {
515 func = JsComp.process,
516 print = MonoPrint.p_file MonoEnv.empty
517 }
518
519 val toJscomp = transform jscomp "jscomp" o toMono_reduce
520
521 val toMono_opt2 = transform mono_opt "mono_opt2" o toJscomp
515 522
516 val fuse = { 523 val fuse = {
517 func = Fuse.fuse, 524 func = Fuse.fuse,
518 print = MonoPrint.p_file MonoEnv.empty 525 print = MonoPrint.p_file MonoEnv.empty
519 } 526 }