summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/eval.c b/eval.c
index 7517eb8b..e07d5327 100644
--- a/eval.c
+++ b/eval.c
@@ -2670,11 +2670,12 @@ static val op_dohash(val form, val env)
val valvar = cons(valsym, nil);
val new_env = make_env(cons(keyvar, cons(valvar, nil)), nil, env);
val cell;
+ val result = nil;
struct hash_iter hi;
hash_iter_init(&hi, eval(hashform, env, hashform), op);
- uw_block_begin (nil, result);
+ uw_block_beg (nil, result);
while ((cell = hash_iter_next(&hi)) != nil) {
/* These assignments are gc-safe, because keyvar and valvar
@@ -3125,8 +3126,9 @@ static val op_upenv(val form, val env)
static val op_load_time_lit(val form, val env)
{
- (void) env;
val args = cdr(form);
+ (void) env;
+
if (car(args)) {
return cadr(args);
} else {