Float.st
changeset 24320 904fbd4fc461
parent 24302 ad24f2aec0c9
child 24326 de53dbf87153
--- 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