Fix float parsing in GemStone.

GemStone 3.7.2 changed the behavior of `1 raisedToInteger: -3` to return a fraction instead of a float. This update ensure that a float is returned. This commit resolves dalehenrich/rb#12
glassdb · Oct 17, 2024 · 0482c5c · 0482c5c
1 parent bd10283
commit 0482c5c
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/repository/Squeak.v37.package/SqNumberParser.class/instance/makeIntegerOrScaledInteger.st b/repository/Squeak.v37.package/SqNumberParser.class/instance/makeIntegerOrScaledInteger.st
@@ -6,7 +6,8 @@ makeIntegerOrScaledInteger
 	neg
 		ifTrue: [integerPart := integerPart negated].
 	self readExponent
-		ifTrue: [^integerPart * (base raisedToInteger: exponent)].
+		ifTrue: [^integerPart * (base asFloat raisedToInteger: exponent)].
 	self readScale
 		ifTrue: [^integerPart asScaledDecimal: scale].
-	^ integerPart
+	^ integerPart
+