[Pkg] The Trunk: Kernel-nice.286.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.286.mcz

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

Name: Kernel-nice.286
Author: nice
Time: 31 October 2009, 11:49:19 am
UUID: 8990ba20-7244-49e7-b79e-12e397b4a962
Ancestors: Kernel-nice.285

My last fix conflicted with http://bugs.squeak.org/view.php?id=6695
Float storeStringBase: does not store the radix 

Merge the two fixes

=============== Diff against Kernel-nice.285 ===============

Item was changed:
  ----- Method: Float>>storeOn:base: (in category 'printing') -----
  storeOn: aStream base: base 
  	"Print the Number exactly so it can be interpreted back unchanged"
  	self isFinite
+ 		ifTrue: [self sign = -1 ifTrue: [aStream nextPutAll: '-'].
+ 			base = 10 ifFalse: [aStream print: base; nextPut: $r].
+ 			self = 0.0
+ 				ifTrue: [aStream nextPutAll: '0.0']
+ 				ifFalse: [self abs absPrintExactlyOn: aStream base: base]]
- 		ifTrue: [self > 0
- 				ifTrue: [self absPrintExactlyOn: aStream base: base]
- 				ifFalse: [self sign = -1
- 						ifTrue: [aStream nextPutAll: '-'].
- 					self = 0.0
- 						ifTrue: [aStream nextPutAll: '0.0']
- 						ifFalse: [self negated absPrintExactlyOn: aStream base: base]]]
  		ifFalse: [self isNaN
  				ifTrue: [aStream nextPutAll: 'Float nan']
  				ifFalse: [self > 0.0
  						ifTrue: [aStream nextPutAll: 'Float infinity']
  						ifFalse: [aStream nextPutAll: 'Float infinity negated']]]!