summaryrefslogtreecommitdiff
path: root/module/language/cps/hoot/tailify.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/cps/hoot/tailify.scm')
-rw-r--r--module/language/cps/hoot/tailify.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/module/language/cps/hoot/tailify.scm b/module/language/cps/hoot/tailify.scm
index f45e66e2a..6888019ed 100644
--- a/module/language/cps/hoot/tailify.scm
+++ b/module/language/cps/hoot/tailify.scm
@@ -279,7 +279,7 @@ be rewritten to continue to the tail's ktail."
((rename-var tag) handler)))))
(letk kcode ($kargs () ()
($continue kpush src ($code (intmap-ref entries kh)))))
- (build-term ($continue kpush src
+ (build-term ($continue kcode src
($primcall 'save reprs vars)))))))
(($ $throw src op param args)
(with-cps cps
@@ -524,6 +524,8 @@ body, as an intset."
(match (intmap-ref cps k)
(($ $ktail) splits)
((or ($ $kargs) ($ $kreceive)) (intmap-add splits k k))))
+ (($ $kargs names vars ($ $prompt k kh src escape? tag))
+ (intmap-add splits kh kh))
(_
splits)))
;; Then we build tails by propagating splits forward in the CFG,