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

Remove unused "nargs" field of memoized call expressions

Browse source 
* libguile/eval.c (eval):
* libguile/memoize.c (MAKMEMO_CALL, memoize, unmemoize):
* module/ice-9/eval.scm (primitive-eval): Remove "nargs" field from
  memoized call expressions, and adapt callers.
This commit is contained in:
Andy Wingo 2015-03-12 08:37:04 +01:00
parent af082f9b1c
commit eb0376567d
3 changed files with 19 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/eval.c
View file

@ -328,8 +328,8 @@ eval (SCM x, SCM env)
case SCM_M_CALL:
/* Evaluate the procedure to be applied. */
proc = EVAL1 (CAR (mx), env);
argc = SCM_I_INUM (CADR (mx));
mx = CDDR (mx);
argc = scm_ilength (CDR (mx));
mx = CDR (mx);
if (BOOT_CLOSURE_P (proc))
{