# HG changeset patch
# User martinb
# Date 990410045 0
# Node ID 2b0ea82d329f050d6a0531bcc2e6d0985a2ba138
# Parent  0f4bdbb07414d08ba09ac038592fb0659e789e55
[xemacs-hg @ 2001-05-21 01:54:03 by martinb]
Only optimize (= x) ==> t if byte-compile-delete-errors is nil.

diff -r 0f4bdbb07414 -r 2b0ea82d329f lisp/ChangeLog
--- a/lisp/ChangeLog	Sun May 20 21:36:08 2001 +0000
+++ b/lisp/ChangeLog	Mon May 21 01:54:05 2001 +0000
@@ -1,3 +1,8 @@
+2001-05-20  Martin Buchholz  <martin@xemacs.org>
+
+	* bytecomp.el (byte-compile-arithcompare):
+	Only optimize (= x) ==> t if byte-compile-delete-errors is nil.
+
 2001-05-20  Adrian Aichner  <adrian@xemacs.org>
 
 	* buff-menu.el (Buffer-menu-mode): Properly make
diff -r 0f4bdbb07414 -r 2b0ea82d329f lisp/bytecomp.el
--- a/lisp/bytecomp.el	Sun May 20 21:36:08 2001 +0000
+++ b/lisp/bytecomp.el	Mon May 21 01:54:05 2001 +0000
@@ -3205,7 +3205,9 @@
 (defun byte-compile-arithcompare (form)
   (case (length (cdr form))
     (0 (byte-compile-subr-wrong-args form "1 or more"))
-    (1 (byte-compile-constant t))
+    (1 (if byte-compile-delete-errors
+	   (byte-compile-constant t)
+	 (byte-compile-normal-call form)))
     (2 (byte-compile-two-args form))
     (t (byte-compile-normal-call form))))