Mercurial > urweb
diff src/compiler.sml @ 454:9163f8014f9b
Nested save compiles
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 01 Nov 2008 21:24:43 -0400 |
parents | 85819353a84f |
children | 360cbc202756 |
line wrap: on
line diff
--- a/src/compiler.sml Sat Nov 01 21:19:43 2008 -0400 +++ b/src/compiler.sml Sat Nov 01 21:24:43 2008 -0400 @@ -418,12 +418,19 @@ val toEspecialize = transform especialize "especialize" o toCorify +val core_untangle = { + func = CoreUntangle.untangle, + print = CorePrint.p_file CoreEnv.empty +} + +val toCore_untangle = transform core_untangle "core_untangle" o toEspecialize + val shake = { func = Shake.shake, print = CorePrint.p_file CoreEnv.empty } -val toShake1 = transform shake "shake1" o toEspecialize +val toShake1 = transform shake "shake1" o toCore_untangle val tag = { func = Tag.tag,