mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 20:00:19 +02:00
13 lines
253 B
Scheme
13 lines
253 B
Scheme
(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))))
|