Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Thu, 10 May 2018 01:22:36 +0200
changeset 22852 403f7356efc1
parent 22851 df11e296e70d
child 22853 a0380f086736
#BUGFIX by stefan class: LimitedPrecisionReal class changed: #computeEpsilon fix for {Long,Short}Float>>#isAlmostEqualTo:nEpsilon: for values near 0
LimitedPrecisionReal.st file | annotate | diff | comparison | revisions 
--- a/LimitedPrecisionReal.st	Thu May 10 01:16:55 2018 +0200
+++ b/LimitedPrecisionReal.st	Thu May 10 01:22:36 2018 +0200
@@ -470,7 +470,7 @@
 computeEpsilon
     "return the maximum relative spacing"
 
-    ^ self radix asFloat raisedToInteger:(1 - self precision).
+    ^ (self coerce:self radix) raisedToInteger:(1 - self precision).
 
     "
       Float radix
@@ -483,6 +483,7 @@
     "
 
     "Modified (comment): / 03-07-2017 / 12:12:06 / cg"
+    "Modified: / 10-05-2018 / 01:19:25 / stefan"
 !
 
 emax
hg/stx-libbasic