hg/stx-libbasic2: changeset 5361:2c50d797336c

author	Claus Gittinger <cg@exept.de>
	Sat, 07 Dec 2019 18:46:00 +0100
changeset 5361	2c50d797336c
parent 5360	60841ec4a7f7
child 5362	e3b499db0368

#FEATURE by cg class: PrintfScanf class changed: #absDecimalPrintFloat:on:digits: #absScientificPrintFloat:on:digits:

--- a/PrintfScanf.st	Fri Dec 06 17:33:44 2019 +0100
+++ b/PrintfScanf.st	Sat Dec 07 18:46:00 2019 +0100
@@ -881,8 +881,8 @@
         aStream nextPutAll:'INF'.
         ^ self.
     ].
-    aFloat = 0.0 ifTrue:[
-        aStream nextPutAll:'0'.
+    aFloat isZero ifTrue:[
+        aStream nextPutAll:'0.0'.
         ^ self.
     ].
 "/    (aFloat isFloat or:[aFloat isShortFloat]) ifTrue:[
@@ -974,8 +974,8 @@
     ].
     absVal := aFloat abs.
 
-    absVal = 0.0 ifTrue:[
-        aStream nextPutAll:'0'.
+    absVal isZero ifTrue:[
+        aStream nextPutAll:'0.0'.
         ^ self.
     ].
 "/    (aFloat isFloat or:[aFloat isShortFloat]) ifTrue:[