Mercurial > hg > xemacs-beta

diff lisp/bytecomp.el @ 549:2b0ea82d329f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-21 01:54:03 by martinb] Only optimize (= x) ==> t if byte-compile-delete-errors is nil.
author martinb
date Mon, 21 May 2001 01:54:05 +0000
parents 7039e6323819
children 023b83f4e54b
line wrap: on
line diff
--- 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))))