Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.379.mcz==================== Summary ====================
Name: Kernel-nice.379
Author: nice
Time: 17 January 2010, 6:49:12.215 pm
UUID: ac207c0c-7d27-4f71-ac89-83342ab1a41a
Ancestors: Kernel-nice.378
Correct a small bug in SqNumberParser #expected: does not expect a block argument.
The bug was never reached because requestor is never set. The idea of requestor was st80 compiler based: insert the error message in source text, but it's not active yet.
=============== Diff against Kernel-nice.378 ===============
Item was changed:
----- Method: SqNumberParser>>readNamedFloatOrFail (in category 'parsing-private') -----
readNamedFloatOrFail
"This method is used when there is no digit encountered:
It try and read a named Float NaN or Infinity.
Negative sign for -Infinity has been read before sending this method, and is indicated in the neg inst.var.
Fail if no named Float is found"
neg ifFalse: [(sourceStream nextMatchAll: 'NaN')
ifTrue: [^ Float nan]].
(sourceStream nextMatchAll: 'Infinity')
ifTrue: [^ neg
ifTrue: [Float infinity negated]
ifFalse: [Float infinity]].
+ ^self expected: 'a digit between 0 and ' , (Character digitValue: base - 1)!
- ^self expected: ['a digit between 0 and ' , (Character digitValue: base - 1)]!