Float.st
changeset 24328 e16d587ddbd6
parent 24326 de53dbf87153
child 24440 aa298221eb96
--- a/Float.st	Mon Jun 10 22:01:03 2019 +0200
+++ b/Float.st	Mon Jun 10 22:01:13 2019 +0200
@@ -1374,9 +1374,12 @@
 
     "
      123 asFloat asQuadFloat
+     0 asFloat asQuadFloat
+     0.0 asQuadFloat
     "
 
     "Created: / 07-06-2019 / 02:28:26 / Claus Gittinger"
+    "Modified (comment): / 10-06-2019 / 21:51:04 / Claus Gittinger"
 !
 
 asShortFloat
@@ -2790,6 +2793,14 @@
     "
 !
 
+isZero
+    "return true, if the receiver is zero"
+
+    ^ self = 0.0
+
+    "Created: / 10-06-2019 / 21:58:24 / Claus Gittinger"
+!
+
 negative
     "return true if the receiver is less than zero.
      -0.0 is positive for now."