Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Always push a new env cell on define unless the previous cell was undefined.

Browse source
This commit is contained in:
Alex Shinn 2015-09-13 21:49:58 +09:00
parent da845032e5
commit 7c333f43da
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
eval.c
View file

@ -141,9 +141,8 @@ sexp sexp_env_cell_define (sexp ctx, sexp env, sexp key,
} }
#endif #endif
for (ls=sexp_env_bindings(env); sexp_pairp(ls); ls=sexp_env_next_cell(ls)) for (ls=sexp_env_bindings(env); sexp_pairp(ls); ls=sexp_env_next_cell(ls))
if (sexp_car(ls) == key) { if (sexp_car(ls) == key && sexp_cdr(ls) == SEXP_UNDEF) {
if (sexp_cdr(ls) == SEXP_UNDEF) sexp_cdr(ls) = value;
sexp_cdr(ls) = value;
return ls; return ls;
} }
sexp_gc_preserve2(ctx, cell, ls); sexp_gc_preserve2(ctx, cell, ls);