add list primitives

1 files changed, 20 insertions, 1 deletions

diff --git a/prelude/primitives.scm b/prelude/primitives.scm
index 96dd1dd..2e5f5d9 100644
--- a/prelude/primitives.scm
+++ b/prelude/primitives.scm
@@ -1,3 +1,13 @@
+(define-module (prelude/primitives)
+               #: export (primitive-names
+                           primitive-objs
+                           lift-bool
+                           lift-arithmetic
+                           primitives
+                           bool?
+                           true?))
+
+(define (lift-bool expr) (if expr 'true 'false))
 (define (true? expr) (eq? expr 'true))
 (define (false? expr) (eq? expr 'false))
 (define (bool? expr)
@@ -24,13 +34,22 @@
 
 (define (not-fn x) (not (true? x)))
 
+(define (lift-arithmetic op)
+  (lambda vals (lift-bool (apply op vals))))
+
 (define primitives
   `((+ . ,+)
     (- . ,-)
     (* . ,*)
+    (< . ,(lift-arithmetic <))
+    (> . ,(lift-arithmetic >))
+    (<= . ,(lift-arithmetic <=))
+    (>= . ,(lift-arithmetic >=))
     (&& . ,and-special)
     (|| . ,or-special)
-    (/= . ,not-fn)))
+    (/= . ,not-fn)
+    (first . ,car)
+    (rest . ,cdr)))
 
 (define (primitive-names) (map car primitives))
 (define (primitive-objs) (map cdr primitives))