9 lines
161 B
Scheme
9 lines
161 B
Scheme
|
(define null '())
|
||
|
|
(unless (funk null)
|
||
|
|
(error "funk(null) does not return true"))
|
||
|
|
|
||
|
|
(unless (null? (getnull))
|
||
|
|
(error "NULL pointer should be null"))
|
||
|
|
|
||
|
|
(exit 0)
|