diff options
| author | Andy Wingo <wingo@pobox.com> | 2015-03-12 08:37:04 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2015-03-12 08:37:04 +0100 |
| commit | eb0376567da2dd8031f7cdf9c26b261d6e8583dc (patch) | |
| tree | 22db3a37fbf6e1e6deab52c083af73d4a9be4372 /libguile/eval.c | |
| parent | af082f9b1c7a8a2bafd5d95ce094c3aa9b5b7677 (diff) | |
| download | guile-eb0376567da2dd8031f7cdf9c26b261d6e8583dc.tar.gz | |
Remove unused "nargs" field of memoized call expressions
* 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.
Diffstat (limited to 'libguile/eval.c')
| -rw-r--r-- | libguile/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 72f15314f..735e6c0b3 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -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)) { |