The Trunk: Kernel-nice.1017.mcz

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.1017.mcz

==================== Summary ====================

Name: Kernel-nice.1017
Author: nice
Time: 4 May 2016, 11:38:09.824683 am
UUID: 1ffcd709-05e7-2947-b002-099b73ad8920
Ancestors: Kernel-mt.1016

Fix slip in floorLog: fallback, 10 was hardcoded instead of radix parameter

=============== Diff against Kernel-mt.1016 ===============

Item was changed:
  ----- Method: Fraction>>floorLog: (in category 'mathematical functions') -----
  floorLog: radix
  "Unlike super, this version is exact when radix is integer"
 
  | d n |
+ radix isInteger ifFalse: [^super floorLog: radix].
- radix isInteger ifFalse: [^super floorLog: 10].
  n := numerator floorLog: radix.
  d := denominator floorLog: radix.
  ^(numerator * (radix raisedTo: d))
  < (denominator * (radix raisedTo: n))
  ifTrue: [n - d - 1]
  ifFalse: [n - d]!

Item was changed:
  ----- Method: Integer>>floorLog: (in category 'mathematical functions') -----
  floorLog: radix
  "Unlike super, this version is exact when radix is integer"
 
+ radix isInteger ifFalse: [^super floorLog: radix].
- radix isInteger ifFalse: [^super floorLog: 10].
  self <= 0 ifTrue: [^DomainError signal: 'floorLog: is only defined for x > 0.0'].
  ^(self numberOfDigitsInBase: radix) - 1!