/[guile]/guile/guile-core/lang/elisp/internals/null.scm
ViewVC logotype

Diff of /guile/guile-core/lang/elisp/internals/null.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by ossau, Wed Jan 30 00:03:40 2002 UTC revision 1.4 by ossau, Fri Feb 8 11:50:51 2002 UTC
# Line 1  Line 1 
1  (define-module (lang elisp internals null)  (define-module (lang elisp internals null)
2    #:export (null))    #: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)  (define (null obj)
12    (or (not obj)    (->nil (or (not obj)
13        (null? obj)               (null? obj))))
       (eq? obj 'nil)))                  ; Should be removed.  

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26