diff options
author | Andy Wingo <wingo@pobox.com> | 2010-06-17 10:45:34 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-06-17 13:43:25 +0200 |
commit | f238862e9ec7c69d69eb3941f14844501c0f5937 (patch) | |
tree | 7e75c7ad8ae99de752cca655ea52587f0976f2b1 /libguile/memoize.c | |
parent | 89cdf5a3793379432c7a9399aa242b2923e1451a (diff) | |
download | guile-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.c | 6 |
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; |