Mercurial > urweb
comparison src/compiler.sml @ 572:57018f21cd5c
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 |