From f9d74408148e50eb287d6bf784cddbdc239d9669 Mon Sep 17 00:00:00 2001 From: Mattias Engdegård Date: Tue, 20 Jul 2021 19:32:11 +0200 Subject: ; * lisp/emacs-lisp/byte-opt.el (byte-optimize-eq): Fix last change. --- lisp/emacs-lisp/byte-opt.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp/emacs-lisp/byte-opt.el') diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 7ed04b32e97..c9c0ac0045e 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -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, -- cgit v1.2.3