Mercurial > hg > xemacs-beta
changeset 550:1638aacf421d
[xemacs-hg @ 2001-05-21 02:15:12 by martinb]
Fix incorrect optimization: (= 0 0 (random 2)) ==> 0 or 1.
| author | martinb |
|---|---|
| date | Mon, 21 May 2001 02:15:12 +0000 |
| parents | 2b0ea82d329f |
| children | e9a3f8b4de53 |
| files | lisp/ChangeLog lisp/byte-optimize.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon May 21 01:54:05 2001 +0000 +++ b/lisp/ChangeLog Mon May 21 02:15:12 2001 +0000 @@ -1,3 +1,9 @@ +2001-05-21 Martin Buchholz <martin@xemacs.org> + + * byte-optimize.el (=): `=' is not a binary predicate! + Fix incorrect optimization: (= 0 0 (random 2)) ==> 0 or 1. + Use byte-optimize-predicate, not byte-optimize-binary-predicate, + 2001-05-20 Martin Buchholz <martin@xemacs.org> * bytecomp.el (byte-compile-arithcompare):
--- a/lisp/byte-optimize.el Mon May 21 01:54:05 2001 +0000 +++ b/lisp/byte-optimize.el Mon May 21 02:15:12 2001 +0000 @@ -855,13 +855,13 @@ (put 'max 'byte-optimizer 'byte-optimize-associative-math) (put 'min 'byte-optimizer 'byte-optimize-associative-math) -(put '= 'byte-optimizer 'byte-optimize-binary-predicate) (put 'eq 'byte-optimizer 'byte-optimize-binary-predicate) (put 'eql 'byte-optimizer 'byte-optimize-binary-predicate) (put 'equal 'byte-optimizer 'byte-optimize-binary-predicate) (put 'string= 'byte-optimizer 'byte-optimize-binary-predicate) (put 'string-equal 'byte-optimizer 'byte-optimize-binary-predicate) +(put '= 'byte-optimizer 'byte-optimize-predicate) (put '< 'byte-optimizer 'byte-optimize-predicate) (put '> 'byte-optimizer 'byte-optimize-predicate) (put '<= 'byte-optimizer 'byte-optimize-predicate)