diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-16 13:33:52 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-16 13:33:52 +0100 |
commit | d61d6686543c9656d2a7273e104172052f951f7c (patch) | |
tree | 7720b088d07d57a7353977b50a8feeb1ee50d118 /libguile/memoize.c | |
parent | ee15aa46e3fb29e609bd7c431e8f2676f6573d57 (diff) | |
download | guile-d61d6686543c9656d2a7273e104172052f951f7c.tar.gz |
memoize: booleanify the rest arg
* libguile/memoize.c (memoize): Turn the rest arg into a boolean. Fixes
an error when rest gets passed to set-procedure-minimum-arity!.
Diffstat (limited to 'libguile/memoize.c')
-rw-r--r-- | libguile/memoize.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/memoize.c b/libguile/memoize.c index 0b1aa5194..911d97294 100644 --- a/libguile/memoize.c +++ b/libguile/memoize.c @@ -277,7 +277,7 @@ memoize (SCM exp, SCM env) int nreq, nopt, ntotal; req = REF (exp, LAMBDA_CASE, REQ); - rest = REF (exp, LAMBDA_CASE, REST); + rest = scm_not (scm_not (REF (exp, LAMBDA_CASE, REST))); opt = REF (exp, LAMBDA_CASE, OPT); kw = REF (exp, LAMBDA_CASE, KW); inits = REF (exp, LAMBDA_CASE, INITS); |