home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / guile / 1.8 / lang / elisp / internals / null.scm < prev    next >
Encoding:
Text File  |  2008-12-17  |  253 b   |  14 lines
  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))))
  14.