Mercurial > urweb

comparison src/compiler.sml @ 898:d1d0b18afd3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Working on Grid; have gone from one dynamic table bizareness to another
author Adam Chlipala <adamc@hcoop.net>
date Sun, 19 Jul 2009 17:45:02 -0400
parents 8f2159040bbb
children 7a4b026e45dd
comparison
equal deleted inserted replaced
897:2faf558b2d05 898:d1d0b18afd3d
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 toShake4 = transform shake "shake4" o toEspecialize 782 val toReduce2 = transform reduce "reduce2" o toEspecialize
783
784 val toShake4 = transform shake "shake4" o toReduce2
783 785
784 val marshalcheck = { 786 val marshalcheck = {
785 func = (fn file => (MarshalCheck.check file; file)), 787 func = (fn file => (MarshalCheck.check file; file)),
786 print = CorePrint.p_file CoreEnv.empty 788 print = CorePrint.p_file CoreEnv.empty
787 } 789 }