stdlib: const, ., reverse

1 files changed, 10 insertions, 0 deletions

diff --git a/tests/stdlib.lisp b/tests/stdlib.lisp
index 86dabe2..88af2a1 100644
--- a/tests/stdlib.lisp
+++ b/tests/stdlib.lisp
@@ -6,11 +6,15 @@
 (define or (x y) (if x 1 (if y 1 0)))
 (define and (x y) (if x (if y 1 0) 0))
 
+(define const (x) (lambda (_) x))
+
 (define != (x y) (not (= x y)))
 (define < (x y) (and (<= x y) (!= x y)))
 (define > (x y) (< y x))
 (define >= (x y) (<= y x))
 
+(define . (f g) (lambda (x) (f (g x))))
+
 (define YY (recur) (lambda (f) (lambda (a) (f ((recur recur) f) a))))
 (define Y (YY YY))
 
@@ -76,6 +80,12 @@
 
 (define all (generic-list-string-2 "all" all-list all-str))
 
+(define reverse (l)
+    (let ((helper (lambdarec rec (l2 rest)
+                        (if (null? l2) rest
+                            (rec (cdr l2) (cons (car l2) rest))))))
+        (helper l '())))
+
 (define stdin (sys-stdin))
 (define stdout (sys-stdout))
 (define stderr (sys-stderr))