The Trunk: Kernel-nice.397.mcz

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

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

Name: Kernel-nice.397
Author: nice
Time: 13 February 2010, 3:53:50.555 am
UUID: a195f8dc-bc5f-b645-986c-0dfa32fc17c8
Ancestors: Kernel-nice.396

Change coercion policy: a Fraction is now converted to ScaledDecimal when involved with ScaledDecimal arithmetic as would an Integer do.
Rationale: (1/1) is a Fraction represented as an Integer, so we cannot really dissociate the two behaviors.

=============== Diff against Kernel-nice.396 ===============

Item was changed:
  ----- Method: Fraction>>adaptToScaledDecimal:andSend: (in category 'converting') -----
  adaptToScaledDecimal: receiverScaledDecimal andSend: arithmeticOpSelector
+ "Convert self to a ScaledDecimal and do the arithmetic.
- "Convert receiverScaledDecimal to a Fraction and do the arithmetic.
  receiverScaledDecimal arithmeticOpSelector self."
+
+ ^ receiverScaledDecimal perform: arithmeticOpSelector with: (self asScaledDecimal: receiverScaledDecimal scale)!
- #Numeric.
- "add 200/01/19 For ScaledDecimal support."
- ^ receiverScaledDecimal asFraction perform: arithmeticOpSelector with: self!

Item was changed:
  ----- Method: ScaledDecimal>>adaptToFraction:andSend: (in category 'converting') -----
  adaptToFraction: receiver andSend: arithmeticOpSelector
+ "Convert a Fraction to aScaledDecimal and do the arithmetic.
- "Convert me to a Fraction and do the arithmetic.
  receiver arithmeticOpSelector self."
+ ^(receiver asScaledDecimal: scale) perform: arithmeticOpSelector with: self!
- ^ receiver perform: arithmeticOpSelector with: fraction!