From ff7407c146b8129c2f1cc7ebe3b5771ad2f5dfdd Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 1 Sep 2026 06:26:13 -0400 Subject: pit: Fix evaluator --- pit/src/runtime/symtab.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'pit/src/runtime/symtab.c') diff --git a/pit/src/runtime/symtab.c b/pit/src/runtime/symtab.c index 33ed3ba..1894208 100644 --- a/pit/src/runtime/symtab.c +++ b/pit/src/runtime/symtab.c @@ -104,21 +104,20 @@ void pit_symtab_symbol_mark_special_form(pit_runtime *rt, pit_value sym) { if (!ent) { pit_error(rt, "bad symbol"); return; } ent->is_special_form = true; } -void pit_symtab_sfset(pit_runtime *rt, pit_value sym, pit_value v) { - pit_symtab_fset(rt, sym, v); - pit_symtab_symbol_mark_special_form(rt, sym); -} +#include void pit_symtab_bind(pit_runtime *rt, pit_value sym, pit_value cell) { /* although we cannot set frozen symbols, we can still bind them temporarily - no need to check */ pit_symtab_entry *ent = pit_symtab_lookup(rt, sym); if (!ent) { pit_error(rt, "bad symbol"); return; } if (pit_vec_push(pit_value)(rt->saved_bindings, ent->value) < 0) pit_error(rt, "binding stack overflow"); ent->value = cell; + fprintf(stderr, "binding: "); pit_dump_to_file(rt, stderr, sym, false); fprintf(stderr, "\n"); } pit_value pit_symtab_unbind(pit_runtime *rt, pit_value sym) { pit_symtab_entry *ent = pit_symtab_lookup(rt, sym); if (!ent) { pit_error(rt, "bad symbol"); return PIT_NIL; } pit_value old = ent->value; if (pit_vec_pop(pit_value)(rt->saved_bindings, &ent->value) < 0) pit_error(rt, "binding stack underflow"); + fprintf(stderr, "unbinding: "); pit_dump_to_file(rt, stderr, sym, false); fprintf(stderr, "\n"); return old; } -- cgit v1.3.1