From: yamaoka <yamaoka>
Date: Fri, 10 Dec 1999 06:57:43 +0000 (+0000)
Subject: (mapcon, mapc): Eliminate the redundant code.
X-Git-Tag: t-gnus-6_14_0-07~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b76c4f76adedf85253996c4fd2df9994fbb7a8e1;p=elisp%2Fgnus.git-

(mapcon, mapc): Eliminate the redundant code.
---

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 17fd114..8aec2e5 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -58,7 +58,7 @@
     (if rest
 	`(let* ((fn ,fn)
 		(seq ,seq)
-		(args (cons seq (list ,@rest)))
+		(args (list seq ,@rest))
 		(m (apply (function min) (mapcar (function length) args)))
 		(n 0))
 	   (while (< n m)
@@ -97,7 +97,7 @@
       form
     (if rest
 	`(let (res
-	       (args (cons ,seq (list ,@rest)))
+	       (args (list ,seq ,@rest))
 	       p)
 	   (while (not (memq nil args))
 	     (push (apply ,fn args) res)