add boolean=? to r6rs
svn: r9947
This commit is contained in:
parent
7ec0f13a7d
commit
344b225e20
|
@ -75,7 +75,7 @@
|
|||
[r6rs:string->number string->number])
|
||||
|
||||
;; 11.8
|
||||
not boolean?
|
||||
not boolean? boolean=?
|
||||
|
||||
;; 11.9
|
||||
(rename-out [r5rs:pair? pair?]
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user