diff options
author | 2008-10-30 16:58:54 -0400 | |
---|---|---|
committer | 2008-10-30 16:58:54 -0400 | |
commit | f9347ca52cf7a21a3aae0e7bfbb2d5978ff5d421 (patch) | |
tree | 2b080558e197d010a6a3f570fb9aa138534d991a /src/compiler.sml | |
parent | 17343f3d2252877628a7c13875d9fac1718f9aa2 (diff) |
Especialize
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 1f88705c..4f1bce11 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -404,12 +404,19 @@ val corify = { val toCorify = transform corify "corify" o toExplify +val especialize = { + func = ESpecialize.specialize, + print = CorePrint.p_file CoreEnv.empty +} + +val toEspecialize = transform especialize "especialize" o toCorify + val shake = { func = Shake.shake, print = CorePrint.p_file CoreEnv.empty } -val toShake1 = transform shake "shake1" o toCorify +val toShake1 = transform shake "shake1" o toEspecialize val tag = { func = Tag.tag, |