~ 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