diff options
author | 2008-10-30 16:58:54 -0400 | |
---|---|---|
committer | 2008-10-30 16:58:54 -0400 | |
commit | 0e88aba4fcbcf9587c289a555315ec30a112a2f0 (patch) | |
tree | 2b080558e197d010a6a3f570fb9aa138534d991a /src/compiler.sml | |
parent | c6f6a629256d7292ae7c18428656eda4130391bd (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, |