summaryrefslogtreecommitdiff
path: root/libguile/memoize.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-16 13:33:52 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-16 13:33:52 +0100
commitd61d6686543c9656d2a7273e104172052f951f7c (patch)
tree7720b088d07d57a7353977b50a8feeb1ee50d118 /libguile/memoize.c
parentee15aa46e3fb29e609bd7c431e8f2676f6573d57 (diff)
downloadguile-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.c2
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);