Float.st
changeset 24915 9b05c18790b2
parent 24875 1227437cebcb
child 24930 b9f4cb048fe7
--- a/Float.st	Fri Nov 15 20:05:05 2019 +0100
+++ b/Float.st	Sat Nov 16 16:22:48 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -899,10 +897,17 @@
      (i.e. the value-delta of the least significant bit)"
 
     Epsilon isNil ifTrue:[
-	Epsilon := self computeEpsilon.
+        Epsilon := self computeEpsilon.
     ].
     ^ Epsilon
 
+    "
+     Float epsilon      -> 1.11022302462516E-16
+     ShortFloat epsilon -> 5.960464e-08
+     LongFloat epsilon  -> 5.42101086242752217E-20
+     QuadFloat epsilon  -> 
+    "
+
     "Modified (comment): / 22-06-2017 / 13:44:12 / cg"
 !