summaryrefslogtreecommitdiff
path: root/prelude
diff options
context:
space:
mode:
authorAkshay <[email protected]>2020-11-08 04:22:35 +0000
committerAkshay <[email protected]>2020-11-08 04:22:35 +0000
commiteb6da7644bcf0656602fdf6e43f293759c853f66 (patch)
tree058f3f2c35889a26ebbcba5babc43748ea3816ca /prelude
parentd217ffbca7a50c434cb0db1541dfbc667e2b8a48 (diff)
add named let and simultaneous define semantics
Diffstat (limited to 'prelude')
-rw-r--r--prelude/primitives.scm10
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 @@
45 (> . ,(lift-bool >)) 45 (> . ,(lift-bool >))
46 (<= . ,(lift-bool <=)) 46 (<= . ,(lift-bool <=))
47 (>= . ,(lift-bool >=)) 47 (>= . ,(lift-bool >=))
48 (= . ,(lift-bool =))
48 (eq? . ,(lift-bool eq?)) 49 (eq? . ,(lift-bool eq?))
49 (&& . ,and-special) 50 (&& . ,and-special)
50 (|| . ,or-special) 51 (|| . ,or-special)
51 (/= . ,not-fn) 52 (/= . ,not-fn)
52 (first . ,car) 53 (first . ,car)
53 (rest . ,cdr))) 54 (second . ,cadr)
55 (third . ,caddr)
56 (fourth . ,cadddr)
57 (rest . ,cdr)
58 (cons . ,cons)
59 (list . ,list)
60 (map . ,map)
61 (null? . ,(lift-bool null?))))
54 62
55(define (primitive-names) (map car primitives)) 63(define (primitive-names) (map car primitives))
56(define (primitive-objs) (map cdr primitives)) 64(define (primitive-objs) (map cdr primitives))