From eb6da7644bcf0656602fdf6e43f293759c853f66 Mon Sep 17 00:00:00 2001 From: Akshay Date: Sun, 8 Nov 2020 09:52:35 +0530 Subject: add named let and simultaneous define semantics --- prelude/primitives.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'prelude') 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)) -- cgit v1.2.3