[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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master f9d7440: ; * lisp/emacs-lisp/byte-opt.el (byte-optimize-eq): Fix last change.,
Mattias Engdegård <=