# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 881215136 0
# Node ID c42c4f60ecbb713f8e179a6e3c6e4805667aef55
# Parent  7d1e9fc47f9d66a5f0076ef92181a64e7eccf11a
(byte-optimize-lapcode): Correctly
distinguish byte-constant from operations on variables.

diff -r 7d1e9fc47f9d -r c42c4f60ecbb lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Thu Dec 04 05:56:22 1997 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Thu Dec 04 05:58:56 1997 +0000
@@ -1826,7 +1826,7 @@
       (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)))