emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Mattias Engdegård
Subject: master f9d7440: ; * lisp/emacs-lisp/byte-opt.el (byte-optimize-eq): Fix last change.
Date: Tue, 20 Jul 2021 13:32:49 -0400 (EDT)

branch: master
commit f9d74408148e50eb287d6bf784cddbdc239d9669
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    ; * 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(-)

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 7ed04b3..c9c0ac0 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,



reply via email to

[Prev in Thread] Current Thread [Next in Thread]