Hi Levente,<div><br></div><div> why not</div><div><br></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; ">= aNumber<br> aNumber isInteger ifTrue:</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "> [^aNumber class == self class<br> and: [(self digitCompare: aNumber) = 0]].<br>
^aNumber isNumber<br> and: [aNumber adaptToInteger: self andCompare: #=]</span></div><div><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;"><br>
</span></font></div><div><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;">or</span></font></div><div><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;"><br>
</span></font></div><div><font class="Apple-style-span" face="arial, sans-serif"><span class="Apple-style-span" style="border-collapse: collapse;"><span class="Apple-style-span" style="border-collapse: separate; font-family: arial; "><div>
<span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; ">= aNumber<br> ^aNumber isInteger</span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "> ifTrue:</span></div>
<div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "> [aNumber class == self class<br> and: [(self digitCompare: aNumber) = 0]].<br>
ifFalse:</span></div><div><span class="Apple-style-span" style="font-family: arial, sans-serif; font-size: 13px; border-collapse: collapse; "> [aNumber isNumber<br> and: [aNumber adaptToInteger: self andCompare: #=]]</span></div>
</span></span></font><br><div class="gmail_quote">On Sun, Jul 10, 2011 at 7:36 AM, <span dir="ltr"><<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Levente Uzonyi uploaded a new version of Kernel to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Kernel-ul.604.mcz" target="_blank">http://source.squeak.org/trunk/Kernel-ul.604.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Kernel-ul.604<br>
Author: ul<br>
Time: 10 July 2011, 4:36:20.467 pm<br>
UUID: f758876f-a507-404b-aa2f-2c1038504b48<br>
Ancestors: Kernel-bf.603<br>
<br>
Optimized Integer >> #= for integer-integer comparisons. Return false for integers from different classes without further checking.<br>
<br>
=============== Diff against Kernel-bf.603 ===============<br>
<br>
Item was changed:<br>
----- Method: Integer>>= (in category 'comparing') -----<br>
= aNumber<br>
+<br>
+ aNumber isInteger ifTrue: [<br>
+ aNumber class == self class ifFalse: [ ^false ].<br>
+ ^(self digitCompare: aNumber) = 0 ].<br>
+ aNumber isNumber ifFalse: [ ^false ].<br>
+ ^aNumber adaptToInteger: self andCompare: #=!<br>
- aNumber isNumber ifFalse: [^ false].<br>
- aNumber isInteger ifTrue:<br>
- [aNumber negative == self negative<br>
- ifTrue: [^ (self digitCompare: aNumber) = 0]<br>
- ifFalse: [^ false]].<br>
- ^ aNumber adaptToInteger: self andCompare: #=!<br>
<br>
<br>
</blockquote></div><br><br clear="all"><br>-- <br>best,<div>Eliot</div><br>
</div>