repir boolean=? test

svn: r9948
2008-05-24 22:27:29 +00:00 · 2008-05-24 22:27:29 +00:00 · fadfbf73e1
commit fadfbf73e1
parent 344b225e20
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/r6rs/base.ss
+++ b/collects/tests/r6rs/base.ss
@ -951,7 +951,7 @@
    (test (boolean? 0)           #f)
    (test (boolean? '())         #f)

-    (test (boolean=? #f #f) #f)
+    (test (boolean=? #f #f) #t)
    (test (boolean=? #t #t) #t)
    (test (boolean=? #t #f) #f)
    (test (boolean=? #f #t) #f)