procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move while syntax check from optimiser to macroexpand

Browse source 
* lisp/emacs-lisp/byte-opt.el (byte-optimize-while): Move check...
* lisp/emacs-lisp/macroexp.el (macroexp--expand-all): ...here.
This commit is contained in:
Mattias Engdegård 2022-08-17 20:29:27 +02:00
parent a936335aa0
commit 9a7b3673e0
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/byte-opt.el
View file

@ -1317,9 +1317,6 @@ See Info node `(elisp) Integer Basics'."
(list 'progn condition nil)))))
(defun byte-optimize-while (form)
;; FIXME: This check does not belong here, move!
(when (< (length form) 2)
(byte-compile-warn-x form "too few arguments for `while'"))
(let ((condition (nth 1 form)))
(if (byte-compile-nilconstp condition)
condition