--- a/Scanner.st Tue Nov 06 12:15:16 2018 +0100
+++ b/Scanner.st Tue Nov 20 17:07:53 2018 +0100
@@ -3075,10 +3075,14 @@
"/ due to a strange overflow, we might get a Nan, although we
"/ are actually still in the float range.
"/ happens eg. for 1.7976931348623157e+308
+ nextChar := source peek.
value isInfinite ifTrue:[
- value := Float fastFromString:source collection at:pos1.
+ PrimitiveFailure handle:[:ex |
+ "/ self halt.
+ ] do:[
+ value := Float fastFromString:source collection at:pos1.
+ ].
].
- nextChar := source peek.
].
] ifFalse:[
value isLimitedPrecisionReal ifTrue:[
@@ -3128,7 +3132,7 @@
^ tokenType
"Modified: / 15-06-2017 / 11:07:52 / cg"
- "Modified: / 27-10-2018 / 09:05:23 / Claus Gittinger"
+ "Modified: / 20-11-2018 / 17:06:15 / Claus Gittinger"
!
nextPrimitive