diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | eval.c | 2 |
2 files changed, 6 insertions, 0 deletions
@@ -1,5 +1,9 @@ 2011-11-29 Kaz Kylheku <kaz@kylheku.com> + * eval.c (bindings_helper): Fix uninitialized variable. + +2011-11-29 Kaz Kylheku <kaz@kylheku.com> + * eval.c (dohash_s): New symbol variable. (op_dohash): New static function (expand): New case for dohash_s. @@ -368,6 +368,8 @@ static val bindings_helper(val vars, val env, val sequential, val ctx_form) car(ctx_form), item, nao); var = first(item); val = eval(second(item), nenv, ctx_form); + } else { + var = item; } if (symbolp(var)) { |