guile18/lang/elisp/internals/null.scm

   1 (define-module (lang elisp internals null)
   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))))
  10
  11 (define (null obj)
  12   (->nil (or (not obj)
  13              (null? obj))))