(byte-optimize-lapcode): Correctly

distinguish byte-constant from operations on variables.
This commit is contained in:
Karl Heuer 1997-12-04 05:58:56 +00:00
parent 50bec09179
commit 98a602e358

View file

@ -1826,7 +1826,7 @@ may generate incorrect code.")
(setq lap0 (car rest)
lap1 (nth 1 rest))
(if (memq (car lap0) byte-constref-ops)
(if (eq (cdr lap0) 'byte-constant)
(if (not (eq (car lap0) 'byte-constant))
(or (memq (cdr lap0) byte-compile-variables)
(setq byte-compile-variables (cons (cdr lap0)
byte-compile-variables)))