[bpt/guile.git] / lang / elisp / internals / null.scm

(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))))
Commit	Line	Data
3d1a89b9	1	(define-module (lang elisp internals null)
e79236a9 NJ	2	#:export (->nil lambda->nil null))
	3
	4	(define (->nil x)
	5	(or x %nil))
	6
	7	(define (lambda->nil proc)
	8	(lambda args
	9	(->nil (apply proc args))))
3d1a89b9 NJ	10
3d1a89b9 NJ	11	(define (null obj)
e79236a9 NJ	12	(->nil (or (not obj)
e79236a9 NJ	13	(null? obj))))