mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-10 16:20:17 -08:00
Code Issues Projects Releases Wiki Activity

Use `length=' and family where possible in native comp code

Browse source 
* lisp/emacs-lisp/comp-cstr.el (comp-intersect-typesets)
	(comp-cstr-imm): Use Use `length=' and family where possible.
	* lisp/emacs-lisp/comp.el (comp-add-cond-cstrs-target-block)
	(comp-compute-dominator-frontiers)
	(batch-byte-native-compile-for-bootstrap): Likewise.
This commit is contained in:
Andrea Corallo 2021-03-07 21:26:55 +01:00
parent dcf2be6971
commit 9809f7ed2c
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/comp-cstr.el
View file

@ -287,7 +287,7 @@ Return them as multiple value."
(defun comp-intersect-typesets (&rest typesets)
"Intersect types present into TYPESETS."
(unless (cl-some #'null typesets)
(if (= (length typesets) 1)
(if (length= typesets 1)
(car typesets)
(comp-normalize-typeset
(cl-reduce #'comp-intersect-two-typesets typesets)))))
@ -823,7 +823,7 @@ Non memoized version of `comp-cstr-intersection-no-mem'."
(valset ,cstr) (list ,val)))))))
(with-comp-cstr-accessors
(let ((v (valset cstr)))
(if (= (length v) 1)
(if (length= v 1)
(car v)
(caar (range cstr))))))