summaryrefslogtreecommitdiff
path: root/src/compiler.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-11-11 15:12:24 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-11-11 15:12:24 -0500
commitded9f1e15308a0ed27c9892d4b0285abc25654f8 (patch)
treed5ed1a7591b639cb85c0a2e8982c9d9929b42df3 /src/compiler.sml
parent5ca452a8576373895301be85a7dfc13746036cac (diff)
Get preliminary ThreadedBlog working
Diffstat (limited to 'src/compiler.sml')
-rw-r--r--src/compiler.sml5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml
index 93a03169..b2f8f91c 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -446,12 +446,15 @@ val defunc = {
val toDefunc = transform defunc "defunc" o toShake1
+val toCore_untangle' = transform core_untangle "core_untangle'" o toDefunc
+val toShake1' = transform shake "shake1'" o toCore_untangle'
+
val tag = {
func = Tag.tag,
print = CorePrint.p_file CoreEnv.empty
}
-val toTag = transform tag "tag" o toDefunc
+val toTag = transform tag "tag" o toShake1'
val reduce = {
func = Reduce.reduce,