summaryrefslogtreecommitdiff
path: root/module/language/cps/dump.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2021-05-25 13:48:23 +0200
committerAndy Wingo <wingo@pobox.com>2023-08-17 14:16:12 +0200
commitdc4fe9741f5556463975ce43292891f103c4fb05 (patch)
tree2bd48c7c74e2b0c294bbab34ae128d9e9597544c /module/language/cps/dump.scm
parentf8b16076022aa871baafa663969362970434f15f (diff)
downloadguile-dc4fe9741f5556463975ce43292891f103c4fb05.tar.gz
Add new $calli expression type.
* module/language/cps.scm ($calli): New expression type which calls a function entry as originally captured via $code. Adapt all callers.
Diffstat (limited to 'module/language/cps/dump.scm')
-rw-r--r--module/language/cps/dump.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/module/language/cps/dump.scm b/module/language/cps/dump.scm
index 0950c2f0b..cf2174ca9 100644
--- a/module/language/cps/dump.scm
+++ b/module/language/cps/dump.scm
@@ -163,6 +163,9 @@
(arg-list
(cons (if proc (format-var proc) "_")
(map format-var args)))))
+ (($ $calli args callee)
+ (format #f "calli ~a(~a)"
+ (format-var callee) (arg-list (map format-var args))))
(($ $primcall name param args)
(format-primcall name param args))
(($ $values args)