diff options
Diffstat (limited to 'module/language/cps/split-rec.scm')
-rw-r--r-- | module/language/cps/split-rec.scm | 8 |
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)))) |