Implemented (reverse list).

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 )

diff --git a/scheme.4th b/scheme.4th
index 57ee1e6..1d06ea6 100644 (file)
--- a/scheme.4th
+++ b/scheme.4th
@@ -1630,7 +1630,7 @@ variable gc-stack-depth
 
     include scheme-primitives.4th
 
-    \ s" scheme-library.scm" load 2drop
+    s" scheme-library.scm" load 2drop
     
 \ }}}