Commit f9d74408 authored by Mattias Engdegård's avatar Mattias Engdegård
Browse files

; * lisp/emacs-lisp/byte-opt.el (byte-optimize-eq): Fix last change.

parent 46d7d448
Pipeline #11504 failed with stages
in 1 minute and 7 seconds
......@@ -970,10 +970,9 @@ See Info node `(elisp) Integer Basics'."
form)))
(defun byte-optimize-eq (form)
(byte-optimize-binary-predicate
(pcase (cdr form)
((or `(,x nil) `(nil ,x)) `(not ,x))
(_ form))))
(pcase (cdr form)
((or `(,x nil) `(nil ,x)) `(not ,x))
(_ (byte-optimize-binary-predicate form))))
(defun byte-optimize-member (form)
;; Replace `member' or `memql' with `memq' if the first arg is a symbol,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment