add reverse defun

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 ///////////////////////////////////////////////////////////////////////