From 3992f14101d04a56c86d00bfa53b16bf0f4ad8d8 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 2 Nov 2015 23:00:00 +0900 Subject: [PATCH] A redef is a set!, it doesn't matter what the previous value was. Fixes issue #285. --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/eval.c b/eval.c index b58012af..4009a4f2 100644 --- a/eval.c +++ b/eval.c @@ -141,7 +141,7 @@ sexp sexp_env_cell_define (sexp ctx, sexp env, sexp key, } #endif 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; return ls; }