From d61d6686543c9656d2a7273e104172052f951f7c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 16 Nov 2011 13:33:52 +0100 Subject: 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!. --- libguile/memoize.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/memoize.c') 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); -- cgit v1.2.3