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">&lt;<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>&gt;</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 &gt;&gt; #= 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&gt;&gt;= (in category &#39;comparing&#39;) -----<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>