[Pkg] The Trunk: Kernel-nice.397.mcz

[commits at source.squeak.org]

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!