~ chicken-core (chicken-5) 13c35b98a7ccf129cb1d1c077de3e09a01005cb9
commit 13c35b98a7ccf129cb1d1c077de3e09a01005cb9
Author: Peter Bex <peter@more-magic.net>
AuthorDate: Sun Dec 29 16:34:31 2019 +0100
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Sun Dec 29 16:34:31 2019 +0100
Fix C_rest_arg_out_of_bounds_error call when inlining known args
The final argument is for C_rest_arg_out_of_bounds_2, but the one we
are calling (without _2) doesn't have the closure argument.
diff --git a/support.scm b/support.scm
index c430160b..48f3970d 100644
--- a/support.scm
+++ b/support.scm
@@ -761,7 +761,7 @@
(copy-node! (varnode (list-ref rest-args depth)) n)
(copy-node! (make-node '##core#inline
(list "C_rest_arg_out_of_bounds_error")
- (list (qnode len) (qnode depth) (qnode 0) (qnode #f)))
+ (list (qnode len) (qnode depth) (qnode 0)))
n)))
n))
((##core#rest-cdr)
Trap