This is the mail archive of the
guile@sourceware.cygnus.com
mailing list for the Guile project.
lang/elisp.scm copyright & patch
- To: Guile Mailing List <guile at sourceware dot cygnus dot com>
- Subject: lang/elisp.scm copyright & patch
- From: Kalle Olavi Niemitalo <tosi at stekt dot oulu dot fi>
- Date: 02 May 2000 14:44:21 +0300
In Guile's CVS tree, there is a mdj_elisp_branch which contains a
lang/elisp.scm file. I'm considering copying that to Guile
Emacs, so that I could hack it there. The file doesn't contain a
copyright notice; who has the copyright, and what is the license?
I've made the following fixes already:
--- guile-core+elisp/lang/elisp.scm Sun Mar 21 15:48:20 1999
+++ guile-emacs/lang/elisp.scm Tue May 2 14:26:50 2000
@@ -181,8 +181,8 @@ (define (m-and exp env)
(cons 'nil-cond
(let loop ((args (cdr exp)))
(if (null? (cdr args))
- (transform args)
- (cons (list 'not (transform (car args)))
+ (list (transform (car args)))
+ (cons (list 'null (transform (car args)))
(cons 'nil
(loop (cdr args))))))))))
@@ -193,7 +193,7 @@ (define (m-or exp env)
(cons 'nil-cond
(let loop ((args (cdr exp)))
(if (null? (cdr args))
- (transform args)
+ (list (transform (car args)))
(cons (transform (car args))
(cons <--
(loop (cdr args))))))))))