summaryrefslogtreecommitdiff
path: root/lang/elisp/internals/null.scm
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))))