<div dir="ltr"><div><div>Hmm, I already corrected this in 2016, in 
<span class="gmail-il">Kernel</span>-<span class="gmail-il">nice</span>.<span class="gmail-il">1017</span>

<br></div>But then I broke it in 
<span class="gmail-il">Kernel</span>-<span class="gmail-il">nice</span>.<span class="gmail-il">1018</span>

 when merging another 
<span class="gmail-il">Kernel</span>-<span class="gmail-il">nice</span>.<span class="gmail-il">1017</span>

which I posted in the inbox...<br></div>Messy...<br></div><div class="gmail_extra"><br><div class="gmail_quote">2018-04-25 11:10 GMT+02:00  <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Nicolas Cellier uploaded a new version of Kernel to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Kernel-nice.1167.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/<wbr>trunk/Kernel-nice.1167.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Kernel-nice.1167<br>
Author: nice<br>
Time: 25 April 2018, 11:09:01.928037 am<br>
UUID: fd3a4e4a-925e-1842-9c73-<wbr>f7f5736dd21c<br>
Ancestors: Kernel-eem.1166<br>
<br>
I shall not invoke super floorLog: with a different radix.<br>
<br>
Ouch, probably a remnant from my ancestor method floorLog10 that I generalized.<br>
<br>
=============== Diff against Kernel-eem.1166 ===============<br>
<br>
Item was changed:<br>
  ----- Method: Fraction>>floorLog: (in category 'mathematical functions') -----<br>
  floorLog: radix<br>
        "Unlike super, this version is exact when radix is integer"<br>
<br>
        | d n |<br>
+       radix isInteger ifFalse: [^super floorLog: radix].<br>
-       radix isInteger ifFalse: [^super floorLog: 10].<br>
        n := numerator floorLog: radix.<br>
        d := denominator floorLog: radix.<br>
        ^(numerator * (radix raisedTo: d))<br>
                < (denominator * (radix raisedTo: n))<br>
                ifTrue: [n - d - 1]<br>
                ifFalse: [n - d]!<br>
<br>
Item was changed:<br>
  ----- Method: Integer>>floorLog: (in category 'mathematical functions') -----<br>
  floorLog: radix<br>
        "Unlike super, this version is exact when radix is integer"<br>
<br>
+       radix isInteger ifFalse: [^super floorLog: radix].<br>
-       radix isInteger ifFalse: [^super floorLog: 10].<br>
        self <= 0 ifTrue: [^DomainError signal: 'floorLog: is only defined for x > 0.0'].<br>
        ^(self numberOfDigitsInBase: radix) - 1!<br>
<br>
<br>
</blockquote></div><br></div>