mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

fix bug in memoize

Browse source 
* libguile/memoize.c (memoize): Fix a bug where LETREC was being
  accessed as LET, and it just happened to coincide.
This commit is contained in:
Andy Wingo 2010-06-17 10:45:34 +02:00
parent 89cdf5a379
commit f238862e9e
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/memoize.c
View file

@ -377,9 +377,9 @@ memoize (SCM exp, SCM env)
SCM vars, exps, body, undefs, inits, sets, new_env; SCM vars, exps, body, undefs, inits, sets, new_env;
int i, nvars; int i, nvars;
vars = REF (exp, LET, GENSYMS); vars = REF (exp, LETREC, GENSYMS);
exps = REF (exp, LET, VALS); exps = REF (exp, LETREC, VALS);
body = REF (exp, LET, BODY); body = REF (exp, LETREC, BODY);
nvars = i = scm_ilength (vars); nvars = i = scm_ilength (vars);
inits = undefs = sets = SCM_EOL; inits = undefs = sets = SCM_EOL;
new_env = env; new_env = env;