Mercurial > urweb

comparison src/compiler.sml @ 572:57018f21cd5c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handling singnal bind
author Adam Chlipala <adamc@hcoop.net>
date Sun, 21 Dec 2008 12:30:57 -0500
parents 1901db85acb4
children 7c3c21eb5b4c
comparison
equal deleted inserted replaced
571:86d324061ddc 572:57018f21cd5c
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
515
514 val jscomp = { 516 val jscomp = {
515 func = JsComp.process, 517 func = JsComp.process,
516 print = MonoPrint.p_file MonoEnv.empty 518 print = MonoPrint.p_file MonoEnv.empty
517 } 519 }
518 520
519 val toJscomp = transform jscomp "jscomp" o toMono_reduce 521 val toJscomp = transform jscomp "jscomp" o toMono_opt2
520 522
521 val toMono_opt2 = transform mono_opt "mono_opt2" o toJscomp 523 val toMono_opt3 = transform mono_opt "mono_opt3" o toJscomp
522 524
523 val fuse = { 525 val fuse = {
524 func = Fuse.fuse, 526 func = Fuse.fuse,
525 print = MonoPrint.p_file MonoEnv.empty 527 print = MonoPrint.p_file MonoEnv.empty
526 } 528 }
527 529
528 val toFuse = transform fuse "fuse" o toMono_opt2 530 val toFuse = transform fuse "fuse" o toMono_opt3
529 531
530 val toUntangle2 = transform untangle "untangle2" o toFuse 532 val toUntangle2 = transform untangle "untangle2" o toFuse
531 533
532 val toMono_shake2 = transform mono_shake "mono_shake2" o toUntangle2 534 val toMono_shake2 = transform mono_shake "mono_shake2" o toUntangle2
533 535