11 lines
326 B
Scheme
11 lines
326 B
Scheme
(begin
|
|
;; not ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-false (not '()))
|
|
(assert-false (not #true))
|
|
(assert-true (not #false))
|
|
;(assert-false (not #\n))
|
|
(assert-false (not 'foo))
|
|
(assert-false (not "foo"))
|
|
(assert-false (not 123))
|
|
(assert-false (not (cons 123 456)))
|
|
)
|