From: Mattias Engdegård <mattiase@acm.org>
Date: Tue, 20 Jul 2021 17:32:11 +0000 (+0200)
Subject: ; * lisp/emacs-lisp/byte-opt.el (byte-optimize-eq): Fix last change.
X-Git-Tag: emacs-28.0.90~1779
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f9d74408148e50eb287d6bf784cddbdc239d9669;p=emacs.git

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

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,