From f238862e9ec7c69d69eb3941f14844501c0f5937 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 17 Jun 2010 10:45:34 +0200 Subject: [PATCH] fix bug in memoize * libguile/memoize.c (memoize): Fix a bug where LETREC was being accessed as LET, and it just happened to coincide. --- libguile/memoize.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/libguile/memoize.c b/libguile/memoize.c index 393598e94..977b86933 100644 --- a/libguile/memoize.c +++ b/libguile/memoize.c @@ -377,9 +377,9 @@ memoize (SCM exp, SCM env) SCM vars, exps, body, undefs, inits, sets, new_env; int i, nvars; - vars = REF (exp, LET, GENSYMS); - exps = REF (exp, LET, VALS); - body = REF (exp, LET, BODY); + vars = REF (exp, LETREC, GENSYMS); + exps = REF (exp, LETREC, VALS); + body = REF (exp, LETREC, BODY); nvars = i = scm_ilength (vars); inits = undefs = sets = SCM_EOL; new_env = env;