summaryrefslogtreecommitdiff
path: root/libguile/memoize.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-06-17 10:45:34 +0200
committerAndy Wingo <wingo@pobox.com>2010-06-17 13:43:25 +0200
commitf238862e9ec7c69d69eb3941f14844501c0f5937 (patch)
tree7e75c7ad8ae99de752cca655ea52587f0976f2b1 /libguile/memoize.c
parent89cdf5a3793379432c7a9399aa242b2923e1451a (diff)
downloadguile-f238862e9ec7c69d69eb3941f14844501c0f5937.tar.gz
fix bug in memoize
* libguile/memoize.c (memoize): Fix a bug where LETREC was being accessed as LET, and it just happened to coincide.
Diffstat (limited to 'libguile/memoize.c')
-rw-r--r--libguile/memoize.c6
1 files 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;