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.
|
BODY.
|
||||||
This is the anaphoric counterpart to `-map'."
|
This is the anaphoric counterpart to `-map'."
|
||||||
(declare (debug (form form)))
|
(declare (debug (form form)))
|
||||||
(let ((l (make-symbol "list"))
|
`(mapcar (lambda (it) (ignore it) ,form) ,list))
|
||||||
(r (make-symbol "res")))
|
|
||||||
`(let ((,l ,list) ,r it)
|
|
||||||
(ignore it)
|
|
||||||
(while ,l
|
|
||||||
(setq it (pop ,l))
|
|
||||||
(push ,form ,r))
|
|
||||||
(nreverse ,r))))
|
|
||||||
|
|
||||||
(defmacro --reduce-from (form init list)
|
(defmacro --reduce-from (form init list)
|
||||||
"Accumulate a value by evaluating FORM across LIST.
|
"Accumulate a value by evaluating FORM across LIST.
|
||||||
|
|
Loading…
Reference in New Issue