Parent Directory | Revision Log | 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. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |