From 843ea34efc2c5ea10edc4d534304f8287f97fbbc Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 4 Sep 2026 16:29:31 -0400 Subject: pit: printf --- pit/src/runtime/macroexpand.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'pit/src/runtime/macroexpand.c') diff --git a/pit/src/runtime/macroexpand.c b/pit/src/runtime/macroexpand.c index fdc1f14..9a557dd 100644 --- a/pit/src/runtime/macroexpand.c +++ b/pit/src/runtime/macroexpand.c @@ -7,7 +7,7 @@ pit_value pit_macroexpand_1(pit_runtime *rt, pit_value top) { if (pit_vec_push(pit_value)(rt->expr_stack, top) < 0) pit_error(rt, "macro expansion stack overflow"); while (rt->expr_stack->next > expr_stack_reset) { - pit_value cur; + pit_value cur = PIT_NIL; if (rt->error != PIT_NIL) goto end; if (pit_vec_pop(pit_value)(rt->expr_stack, &cur) < 0) pit_error(rt, "macro expansion stack underflow"); @@ -66,7 +66,7 @@ pit_value pit_macroexpand_1(pit_runtime *rt, pit_value top) { if (pit_vec_pop(pit_value)(rt->result_stack, &f) < 0) pit_error(rt, "macro expansion stack underflow"); for (i64 i = 0; i < ent->in.application.arity; ++i) { - pit_value a; + pit_value a = PIT_NIL; if (pit_vec_pop(pit_value)(rt->result_stack, &a) < 0) pit_error(rt, "macro expansion stack underflow"); args = pit_value_cons(rt, a, args); @@ -76,7 +76,7 @@ pit_value pit_macroexpand_1(pit_runtime *rt, pit_value top) { pit_annotation_set(rt, pit_value_as_ref(rt, app), *ent->in.application.annotation); } if (pit_vec_push(pit_value)(rt->result_stack, app) < 0) - pit_error(rt, "macro expansion stack overflow"); + pit_error(rt, "macroexpansion stack overflow"); break; } default: -- cgit v1.3.1