Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
548:0f4bdbb07414 549:2b0ea82d329f
3203 (byte-defop-compiler (>= byte-geq) byte-compile-arithcompare) 3203 (byte-defop-compiler (>= byte-geq) byte-compile-arithcompare)
3204 3204
3205 (defun byte-compile-arithcompare (form) 3205 (defun byte-compile-arithcompare (form)
3206 (case (length (cdr form)) 3206 (case (length (cdr form))
3207 (0 (byte-compile-subr-wrong-args form "1 or more")) 3207 (0 (byte-compile-subr-wrong-args form "1 or more"))
3208 (1 (byte-compile-constant t)) 3208 (1 (if byte-compile-delete-errors
3209 (byte-compile-constant t)
3210 (byte-compile-normal-call form)))
3209 (2 (byte-compile-two-args form)) 3211 (2 (byte-compile-two-args form))
3210 (t (byte-compile-normal-call form)))) 3212 (t (byte-compile-normal-call form))))
3211 3213
3212 (byte-defop-compiler /= byte-compile-/=) 3214 (byte-defop-compiler /= byte-compile-/=)
3213 3215