Mercurial > urweb

comparison src/compiler.sml @ 957:2831be2daf2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Grid changed to use Dlist.replace; filters stopped working
author Adam Chlipala <adamc@hcoop.net>
date Thu, 17 Sep 2009 19:01:04 -0400
parents 6646b95f1860
children 34ba25d6af3b
comparison
equal deleted inserted replaced
956:d80734855790 957:2831be2daf2e
777 777
778 val toShake3 = transform shake "shake3" o toSpecialize 778 val toShake3 = transform shake "shake3" o toSpecialize
779 779
780 val toEspecialize = transform especialize "especialize" o toShake3 780 val toEspecialize = transform especialize "especialize" o toShake3
781 781
782 val toReduce2 = transform reduce "reduce2" o toEspecialize 782 val tailify = {
783 func = Tailify.frob,
784 print = CorePrint.p_file CoreEnv.empty
785 }
786
787 val toTailify = transform tailify "tailify" o toEspecialize
788
789 val toReduce2 = transform reduce "reduce2" o toTailify
783 790
784 val toShake4 = transform shake "shake4" o toReduce2 791 val toShake4 = transform shake "shake4" o toReduce2
785 792
786 val marshalcheck = { 793 val marshalcheck = {
787 func = (fn file => (MarshalCheck.check file; file)), 794 func = (fn file => (MarshalCheck.check file; file)),