10 lines
301 B
Scheme
10 lines
301 B
Scheme
;; 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)))
|