From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 29 Feb 2016 05:29:41 +0000 (-0800)
Subject: Implement #true and #false as specified by R7RS.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~86
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8436053279973224016f2f6b0d6182ccb2ed165e;p=mit-scheme.git

Implement #true and #false as specified by R7RS.
---

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)