diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-02-05 12:14:23 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-02-05 16:27:35 +0100 |
| commit | 17784bbf3f933dc7ed6aa286794ad7a32651e3ce (patch) | |
| tree | 2a54b424588bb353194c09d54b05162c63d347d2 /lisp/emacs-lisp/byte-opt.el | |
| parent | a50d5b219f81104e3a5928d4917608fcb4db88d2 (diff) | |
| download | emacs-17784bbf3f933dc7ed6aa286794ad7a32651e3ce.tar.gz emacs-17784bbf3f933dc7ed6aa286794ad7a32651e3ce.tar.bz2 emacs-17784bbf3f933dc7ed6aa286794ad7a32651e3ce.zip | |
Allow unbind to commute with discardN and discardN-preserve-tos
* lisp/emacs-lisp/byte-opt.el (byte-after-unbind-ops):
Add discardN and discardN-preserve-tos, both of which
commute with unbind. This enables subsequent optimisations.
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index a54f6595b46..feff233998d 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -1955,8 +1955,8 @@ See Info node `(elisp) Integer Basics'." byte-goto-if-not-nil-else-pop)) (defconst byte-after-unbind-ops - ;; FIXME: add discardN, discardN-preserve-tos '(byte-constant byte-dup byte-stack-ref byte-stack-set byte-discard + byte-discardN byte-discardN-preserve-tos byte-symbolp byte-consp byte-stringp byte-listp byte-numberp byte-integerp byte-eq byte-not byte-cons byte-list1 byte-list2 byte-list3 byte-list4 byte-listN |