--- a/Float.st Sun Jun 09 15:42:16 2019 +0200
+++ b/Float.st Mon Jun 10 21:23:12 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -524,20 +522,9 @@
defaultPrintfFormat:something
DefaultPrintfFormat := something.
-!
-
-epsilon
- "return the maximum relative spacing of instances of mySelf
- (i.e. the value-delta of the least significant bit)"
-
- Epsilon isNil ifTrue:[
- Epsilon := self computeEpsilon.
- ].
- ^ Epsilon
-
- "Modified (comment): / 22-06-2017 / 13:44:12 / cg"
! !
+
!Float class methodsFor:'binary storage'!
readBinaryIEEEDoubleFrom:aStream
@@ -901,8 +888,21 @@
"Modified (comment): / 27-05-2019 / 08:58:35 / Claus Gittinger"
! !
+
!Float class methodsFor:'queries'!
+epsilon
+ "return the maximum relative spacing of instances of mySelf
+ (i.e. the value-delta of the least significant bit)"
+
+ Epsilon isNil ifTrue:[
+ Epsilon := self computeEpsilon.
+ ].
+ ^ Epsilon
+
+ "Modified (comment): / 22-06-2017 / 13:44:12 / cg"
+!
+
exponentCharacter
^ $d
!
@@ -963,6 +963,7 @@
^ 2 "must be careful here, whenever ST/X is used on VAX or a 370"
! !
+
!Float methodsFor:'arithmetic'!
* aNumber
@@ -2675,6 +2676,7 @@
"Modified (comment): / 26-05-2019 / 03:12:55 / Claus Gittinger"
! !
+
!Float methodsFor:'testing'!
isFinite