~ 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