From 6f9276b24b371758bf9dbe87110843b6d6dc6f8e Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 10 Jul 2026 03:10:18 -0400 Subject: pit: Clean up tree traversals --- pit/src/library.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'pit/src/library.c') diff --git a/pit/src/library.c b/pit/src/library.c index b6b8b42..cbe7f71 100644 --- a/pit/src/library.c +++ b/pit/src/library.c @@ -6,7 +6,7 @@ static pit_value impl_sf_quote(pit_runtime *rt, pit_value args, void *data) { (void) data; - pit_runtime_eval_program_push_literal(rt, rt->program, pit_value_cons_car(rt, args)); + pit_traversal_push_value(rt, rt->traversal, pit_value_cons_car(rt, args)); return PIT_NIL; } static pit_value impl_sf_if(pit_runtime *rt, pit_value args, void *data) { @@ -45,7 +45,7 @@ static pit_value impl_sf_progn(pit_runtime *rt, pit_value args, void *data) { final = pit_eval(rt, pit_value_cons_car(rt, bodyforms)); bodyforms = pit_value_cons_cdr(rt, bodyforms); } - pit_runtime_eval_program_push_literal(rt, rt->program, final); + pit_traversal_push_value(rt, rt->traversal, final); return PIT_NIL; } static pit_value impl_sf_or(pit_runtime *rt, pit_value args, void *data) { @@ -57,14 +57,14 @@ static pit_value impl_sf_or(pit_runtime *rt, pit_value args, void *data) { if (final != PIT_NIL) break; bodyforms = pit_value_cons_cdr(rt, bodyforms); } - pit_runtime_eval_program_push_literal(rt, rt->program, final); + pit_traversal_push_value(rt, rt->traversal, final); return PIT_NIL; } static pit_value impl_sf_lambda(pit_runtime *rt, pit_value args, void *data) { (void) data; pit_value as = pit_value_cons_car(rt, args); pit_value body = pit_value_cons_cdr(rt, args); - pit_runtime_eval_program_push_literal(rt, rt->program, pit_value_func_lambda(rt, as, body)); + pit_traversal_push_value(rt, rt->traversal, pit_value_func_lambda(rt, as, body)); return PIT_NIL; } static pit_value impl_m_defun(pit_runtime *rt, pit_value args, void *data) { -- cgit v1.3.1