ShortFloat.st
changeset 24701 594248902e06
parent 24693 9587c4518f5d
child 24933 13f40732617d
--- a/ShortFloat.st	Sat Aug 31 16:11:36 2019 +0200
+++ b/ShortFloat.st	Sat Aug 31 16:11:58 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1996 by Claus Gittinger
 	      All Rights Reserved
@@ -2007,8 +2005,7 @@
 !ShortFloat methodsFor:'testing'!
 
 isFinite
-    "return true, if the receiver is a finite float
-     i.e. not NaN and not infinite."
+    "return true, if the receiver is a finite float (not NaN and not +/-INF)"
 
 %{  /* NOCONTEXT */
     float fV = __shortFloatVal(self);
@@ -2023,16 +2020,16 @@
     ^ false
 
     "
-	1.0 asShortFloat isFinite
-	(0.0 asShortFloat uncheckedDivide: 0.0) isFinite
-	(1.0 asShortFloat uncheckedDivide: 0.0) isFinite
+        1.0 asShortFloat isFinite
+        (0.0 asShortFloat uncheckedDivide: 0.0) isFinite
+        (1.0 asShortFloat uncheckedDivide: 0.0) isFinite
     "
 !
 
 isNaN
     "return true, if the receiver is an invalid float (NaN - not a number).
      These are not created by ST/X float operations (they raise an exception);
-     however, inline C-code could produce them ..."
+     however, inline C-code could produce them."
 
 %{  /* NOCONTEXT */
     float sV = __shortFloatVal(self);