diff options
| author | LLLL Colonq <llll@colonq> | 2026-07-10 03:10:18 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-07-10 03:10:18 -0400 |
| commit | 6f9276b24b371758bf9dbe87110843b6d6dc6f8e (patch) | |
| tree | f52f3e4907131c45c85c81811d47a531f9619cb2 /pit/src/library.c | |
| parent | 2bdcaf319b1d74ffbaccf08a58336f804761beab (diff) | |
pit: Clean up tree traversals
Diffstat (limited to 'pit/src/library.c')
| -rw-r--r-- | pit/src/library.c | 8 |
1 files changed, 4 insertions, 4 deletions
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) { |