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

A redef is a set!, it doesn't matter what the previous value was.

Browse source 
Fixes issue #285.
This commit is contained in:
Alex Shinn 2015-11-02 23:00:00 +09:00
parent fdc0396962
commit 3992f14101
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
eval.c
View file

@ -141,7 +141,7 @@ 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 && sexp_cdr(ls) == SEXP_UNDEF) { if (sexp_car(ls) == key) {
sexp_cdr(ls) = value; sexp_cdr(ls) = value;
return ls; return ls;
} }