diff options
| author | Mattias Engdegård | 2021-07-20 19:32:11 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2021-07-20 19:32:11 +0200 |
| commit | f9d74408148e50eb287d6bf784cddbdc239d9669 (patch) | |
| tree | 8c45e842e0290908fdd34eb98df6ed017547b555 | |
| parent | 46d7d44894843bf30e9bc84473195c6ab892b752 (diff) | |
| download | emacs-f9d74408148e50eb287d6bf784cddbdc239d9669.tar.gz emacs-f9d74408148e50eb287d6bf784cddbdc239d9669.zip | |
; * lisp/emacs-lisp/byte-opt.el (byte-optimize-eq): Fix last change.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 7 |
1 files changed, 3 insertions, 4 deletions
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'." | |||
| 970 | form))) | 970 | form))) |
| 971 | 971 | ||
| 972 | (defun byte-optimize-eq (form) | 972 | (defun byte-optimize-eq (form) |
| 973 | (byte-optimize-binary-predicate | 973 | (pcase (cdr form) |
| 974 | (pcase (cdr form) | 974 | ((or `(,x nil) `(nil ,x)) `(not ,x)) |
| 975 | ((or `(,x nil) `(nil ,x)) `(not ,x)) | 975 | (_ (byte-optimize-binary-predicate form)))) |
| 976 | (_ form)))) | ||
| 977 | 976 | ||
| 978 | (defun byte-optimize-member (form) | 977 | (defun byte-optimize-member (form) |
| 979 | ;; Replace `member' or `memql' with `memq' if the first arg is a symbol, | 978 | ;; Replace `member' or `memql' with `memq' if the first arg is a symbol, |