This is the mail archive of the guile@sourceware.cygnus.com mailing list for the Guile project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

lang/elisp.scm copyright & patch


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))))))))))

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]