Add basic lexenv support

2026-01-28 16:07:48 -08:00
parent 76b28c1dc0
commit 22ffac9321
12 changed files with 141 additions and 37 deletions
@@ -3,6 +3,7 @@
 #include "gc.h"
 #include "hashtable.h"
 #include "lisp.h"
+#include "list.h"
 #include "stack.h"

 #include <stdio.h>
@@ -75,7 +76,7 @@ DEFUN(id, "id", (LispVal * obj), "(id)", "") {
 }

 DEFUN(eq, "eq", (LispVal * obj1, LispVal *obj2), "(obj1 obj2)", "") {
-    return obj1 == obj2 ? Qt : Qnil;
+    return EQ(obj1, obj2) ? Qt : Qnil;
 }

 DEFSPECIAL(quote, "quote", (LispVal * form), "(form)", "") {