--- a/Float.st Tue Oct 27 16:10:12 2015 +0100
+++ b/Float.st Tue Oct 27 16:10:19 2015 +0100
@@ -302,6 +302,8 @@
!
coerce:aNumber
+ "convert the argument aNumber into an instance of the receiver (class) and return it."
+
^ aNumber asFloat.
!
@@ -466,7 +468,6 @@
^ Epsilon
! !
-
!Float class methodsFor:'binary storage'!
readBinaryIEEEDoubleFrom:aStream
@@ -744,7 +745,6 @@
"
! !
-
!Float class methodsFor:'queries'!
exponentCharacter
@@ -805,7 +805,6 @@
^ 2 "must be careful here, whenever ST/X is used on VAX or a 370"
! !
-
!Float methodsFor:'arithmetic'!
* aNumber
@@ -1104,7 +1103,7 @@
Do not check for divide by zero (return NaN or Infinity).
This operation is provided for emulators of other languages/semantics,
where no exception is raised for these results (i.e. Java).
- Its only defined if the arguments type is the same as the receivers."
+ It is only defined if the argument's type is the same as the receiver's."
%{ /* NOCONTEXT */
@@ -1112,20 +1111,20 @@
double result, val;
if (__isSmallInteger(aNumber)) {
- result = __floatVal(self) / ( (double)__intVal(aNumber)) ;
+ result = __floatVal(self) / ( (double)__intVal(aNumber)) ;
retResult:
- __qMKFLOAT(newFloat, result);
- RETURN ( newFloat );
+ __qMKFLOAT(newFloat, result);
+ RETURN ( newFloat );
}
if (__isFloatLike(aNumber)) {
- val = __floatVal(aNumber);
- result = __floatVal(self) / val;
- goto retResult;
+ val = __floatVal(aNumber);
+ result = __floatVal(self) / val;
+ goto retResult;
}
if (__isShortFloat(aNumber)) {
- val = (double)(__shortFloatVal(aNumber));
- result = __floatVal(self) / val;
- goto retResult;
+ val = (double)(__shortFloatVal(aNumber));
+ result = __floatVal(self) / val;
+ goto retResult;
}
%}.
^ aNumber quotientFromFloat:self
@@ -1287,7 +1286,7 @@
!
coerce:aNumber
- "convert the argument aNumber into an instance of the receivers class and return it."
+ "convert the argument aNumber into an instance of the receiver's class and return it."
^ aNumber asFloat
!
@@ -2314,7 +2313,6 @@
"
! !
-
!Float methodsFor:'testing'!
isFinite