From 9b75e5d50017b95ee8d10ade294c6676a1a60af4 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Tue, 1 Nov 2016 21:38:20 +1300
Subject: [PATCH] Implemented (reverse list).

---
 scheme-library.scm | 5 +++++
 scheme.4th         | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

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 )
diff --git a/scheme.4th b/scheme.4th
index 57ee1e6..1d06ea6 100644
--- 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
     
 \ }}}
 
-- 
2.20.1