Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

; * lisp/subr.el (take-while): bytecode micro-optimisation

Browse source
This commit is contained in:
Mattias Engdegård 2026-02-05 15:03:51 +01:00
parent a06cddec20
commit 893e0783c9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/subr.el
View file

@ -1148,8 +1148,8 @@ side-effects, and the argument LIST is not modified."
(make-symbol "f"))) (make-symbol "f")))
(r (make-symbol "r"))) (r (make-symbol "r")))
`(let (,@(and f `((,f ,pred))) `(let (,@(and f `((,f ,pred)))
(,tail ,list) (,r nil)
(,r nil)) (,tail ,list))
(while (and ,tail (funcall ,(or f pred) (car ,tail))) (while (and ,tail (funcall ,(or f pred) (car ,tail)))
(push (car ,tail) ,r) (push (car ,tail) ,r)
(setq ,tail (cdr ,tail))) (setq ,tail (cdr ,tail)))