(mapcon, mapc): Eliminate the redundant code.

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 17fd114..8aec2e5 100644 (file)
--- 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)