From 344b225e2096ae59cc53808d73a97af580b0ef31 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 24 May 2008 22:26:02 +0000
Subject: [PATCH] =?UTF-8?q?add=20boolean=3D=3F=20to=20r6rs?=

svn: r9947
---
 collects/rnrs/base-6.ss     | 2 +-
 collects/tests/r6rs/base.ss | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/collects/rnrs/base-6.ss b/collects/rnrs/base-6.ss
index 900724ff8e..84ee9ece05 100644
--- a/collects/rnrs/base-6.ss
+++ b/collects/rnrs/base-6.ss
@@ -75,7 +75,7 @@
              [r6rs:string->number string->number])
 
  ;; 11.8
- not boolean?
+ not boolean? boolean=?
 
  ;; 11.9
  (rename-out [r5rs:pair? pair?]
diff --git a/collects/tests/r6rs/base.ss b/collects/tests/r6rs/base.ss
index cc58539ba5..f0e276b368 100644
--- a/collects/tests/r6rs/base.ss
+++ b/collects/tests/r6rs/base.ss
@@ -951,6 +951,11 @@
     (test (boolean? 0)           #f)
     (test (boolean? '())         #f)
 
+    (test (boolean=? #f #f) #f)
+    (test (boolean=? #t #t) #t)
+    (test (boolean=? #t #f) #f)
+    (test (boolean=? #f #t) #f)
+
     ;; 11.9
     (test (pair? '(a . b))         #t)
     (test (pair? '(a b c))         #t)