summaryrefslogtreecommitdiff
path: root/module/language/cps/compile-bytecode.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/compile-bytecode.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/compile-bytecode.scm')
-rw-r--r--module/language/cps/compile-bytecode.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index 494bb5a0c..d6d1737b3 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -1,6 +1,6 @@
;;; Continuation-passing style (CPS) intermediate language (IL)
-;; Copyright (C) 2013-2021 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2021, 2023 Free Software Foundation, Inc.
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -578,6 +578,8 @@
(compile-call #f proc args))
(($ $callk kfun proc args)
(compile-call kfun proc args))
+ (($ $calli args callee)
+ (error "unreachable"))
(_
(match cont
(($ $kargs names vars)