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);