X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme-library.scm;fp=scheme-library.scm;h=dc345cf7e7d688ea11cd1a0b043d092f74814d89;hb=9b75e5d50017b95ee8d10ade294c6676a1a60af4;hp=207bb30062fe236189c9b49b402462b934af5255;hpb=a9e0195cd866692844586002f1614ff74a79426a;p=scheme.forth.jl.git

diff --git a/scheme-library.scm b/scheme-library.scm
index 207bb30..dc345cf 100644
--- a/scheme-library.scm
+++ b/scheme-library.scm
@@ -21,6 +21,11 @@
       (car lists)
       (join (car lists) (apply append (cdr lists))))))
 
+; Reverse the contents of a list
+(define (reverse l)
+  (if (null? l)
+    ()
+    (append (reverse (cdr l)) (list (car l)))))
 
 ;; LIBRARY FORMS
 (define-macro (let value . body )