summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--liblali.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/liblali.c b/liblali.c
index bf96385..1fe20fe 100644
--- a/liblali.c
+++ b/liblali.c
@@ -1676,6 +1676,11 @@ static char *stdlib = LISP(
(defun append (xs y)
(fill ((ap xs) y)
(f (cons (car xs) (append (cdr xs) y)))))
+
+ (defun reverse (xs)
+ (fill
+ ((space (cdr xs)) (append (reverse (cdr xs)) (list (car xs))))
+ (f xs)))
);
// MAIN ///////////////////////////////////////////////////////////////////////