The Trunk: Kernel-nice.286.mcz

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']]]!