Implemented (reverse list).

[scheme.forth.jl.git] / scheme-library.scm

diff --git a/scheme-library.scm b/scheme-library.scm
index 207bb30..dc345cf 100644 (file)
--- 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 )