Built-in files auto-update: Mon Jan 11 09:35:17 UTC 2021
This commit is contained in:
parent
667914e5fa
commit
54054ee8d4
|
@ -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.
|
||||
|
|
Loading…
Reference in New Issue