add boolean=? to r6rs

svn: r9947
This commit is contained in:
Matthew Flatt 2008-05-24 22:26:02 +00:00
parent 7ec0f13a7d
commit 344b225e20
2 changed files with 6 additions and 1 deletions

View File

@ -75,7 +75,7 @@
[r6rs:string->number string->number])
;; 11.8
not boolean?
not boolean? boolean=?
;; 11.9
(rename-out [r5rs:pair? pair?]

View File

@ -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)