blob: 94e2b28dde9eae645296aa6872e8780c0a6e8afd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(define-module (lang elisp internals null)
#:export (->nil lambda->nil null))
(define (->nil x)
(or x %nil))
(define (lambda->nil proc)
(lambda args
(->nil (apply proc args))))
(define (null obj)
(->nil (or (not obj)
(null? obj))))
|