add named let and simultaneous define semantics

1 files changed, 9 insertions, 1 deletions

diff --git a/prelude/primitives.scm b/prelude/primitives.scm
index cd7f1bf..ad1584d 100644
--- a/prelude/primitives.scm
+++ b/prelude/primitives.scm
@@ -45,12 +45,20 @@
     (> . ,(lift-bool >))
     (<= . ,(lift-bool <=))
     (>= . ,(lift-bool >=))
+    (= . ,(lift-bool =))
     (eq? . ,(lift-bool eq?))
     (&& . ,and-special)
     (|| . ,or-special)
     (/= . ,not-fn)
     (first . ,car)
-    (rest . ,cdr)))
+    (second . ,cadr)
+    (third . ,caddr)
+    (fourth . ,cadddr)
+    (rest . ,cdr)
+    (cons . ,cons)
+    (list . ,list)
+    (map . ,map)
+    (null? . ,(lift-bool null?))))
 
 (define (primitive-names) (map car primitives))
 (define (primitive-objs) (map cdr primitives))