10 lines
272 B
Scheme
10 lines
272 B
Scheme
(define (and . lst) "logical and on multiple values" (fold && #t lst))
|
|
(define (or . lst) "logical or on multiple values" (fold || #f lst))
|
|
|
|
(define (not x) "logical not" (if x #f #t))
|
|
|
|
(define (null? obj) "test for null object"
|
|
(if (eqv? obj '())
|
|
#t
|
|
#f))
|