master 17784bbf3f 4/5: Allow unbind to commute with discardN and discardN-preserve-tos

[Mattias Engdegård]

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

    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.
---
 lisp/emacs-lisp/byte-opt.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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