Mercurial > hg > xemacs-beta

diff lisp/byte-optimize.el @ 550:1638aacf421d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 cf82e22962ce
children 6c21360a544b
line wrap: on
line diff
--- 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)