summaryrefslogtreecommitdiff
path: root/module/language/cps/split-rec.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/cps/split-rec.scm')
-rw-r--r--module/language/cps/split-rec.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/module/language/cps/split-rec.scm b/module/language/cps/split-rec.scm
index 2f60b9948..a38a889d8 100644
--- a/module/language/cps/split-rec.scm
+++ b/module/language/cps/split-rec.scm
@@ -90,11 +90,11 @@ references."
(($ $call proc args)
(add-use proc (add-uses args uses)))
(($ $primcall name param args)
- (add-uses args uses))
- (($ $prompt escape? tag handler)
- (add-use tag uses))))
+ (add-uses args uses))))
(($ $branch kf kt src op param args)
- (add-uses args uses)))))
+ (add-uses args uses))
+ (($ $prompt k kh src escape? tag)
+ (add-use tag uses)))))
(($ $kfun src meta self)
(values (add-def self defs) uses))
(_ (values defs uses))))