From 54054ee8d4bffa560938dea5040cfdd6f559cb5f Mon Sep 17 00:00:00 2001 From: emacspace Date: Mon, 11 Jan 2021 09:35:17 +0000 Subject: [PATCH] Built-in files auto-update: Mon Jan 11 09:35:17 UTC 2021 --- core/libs/dash.el | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/core/libs/dash.el b/core/libs/dash.el index a60b10711..2909e0797 100644 --- a/core/libs/dash.el +++ b/core/libs/dash.el @@ -207,14 +207,7 @@ Each element of LIST in turn is bound to `it' before evaluating BODY. This is the anaphoric counterpart to `-map'." (declare (debug (form form))) - (let ((l (make-symbol "list")) - (r (make-symbol "res"))) - `(let ((,l ,list) ,r it) - (ignore it) - (while ,l - (setq it (pop ,l)) - (push ,form ,r)) - (nreverse ,r)))) + `(mapcar (lambda (it) (ignore it) ,form) ,list)) (defmacro --reduce-from (form init list) "Accumulate a value by evaluating FORM across LIST.