mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

Fix boot closure wrong-num-args error

Browse source 
* libguile/eval.c (prepare_boot_closure_env_for_eval): Fix issue if
  fixed closure is called with wrong number of arguments during
  bootstrap.
This commit is contained in:
Andy Wingo 2015-10-21 10:48:15 +02:00
parent 0da0308b84
commit 9b1ac02a85
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/eval.c
View file

@ -882,7 +882,8 @@ prepare_boot_closure_env_for_eval (SCM proc, unsigned int argc,
*out_body = BOOT_CLOSURE_BODY (proc); *out_body = BOOT_CLOSURE_BODY (proc);
*inout_env = new_env; *inout_env = new_env;
} }
else if (BOOT_CLOSURE_IS_REST (proc) && argc >= nreq) else if (!BOOT_CLOSURE_IS_FIXED (proc) &&
BOOT_CLOSURE_IS_REST (proc) && argc >= nreq)
{ {
SCM rest; SCM rest;
int i; int i;