From 8436053279973224016f2f6b0d6182ccb2ed165e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 2016 21:29:41 -0800
Subject: [PATCH] Implement #true and #false as specified by R7RS.

---
 src/runtime/parse.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 719dc5ebe..edbcdbe32 100644
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -767,14 +767,16 @@ USA.
 (define (handler:false port db ctx char1 char2)
   ctx
   (let ((string (parse-atom/no-quoting port db (list char1 char2))))
-    (if (not (string-ci=? string "#f"))
+    (if (not (or (string-ci=? string "#f")
+		 (string-ci=? string "#false")))
 	(error:illegal-boolean string)))
   #f)
 
 (define (handler:true port db ctx char1 char2)
   ctx
   (let ((string (parse-atom/no-quoting port db (list char1 char2))))
-    (if (not (string-ci=? string "#t"))
+    (if (not (or (string-ci=? string "#t")
+		 (string-ci=? string "#true")))
 	(error:illegal-boolean string)))
   #t)
 
-- 
2.25.1