From b76c4f76adedf85253996c4fd2df9994fbb7a8e1 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 10 Dec 1999 06:57:43 +0000 Subject: [PATCH] (mapcon, mapc): Eliminate the redundant code. --- lisp/dgnushack.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4