--- a/Float.st Thu Dec 03 11:16:42 2009 +0100
+++ b/Float.st Thu Dec 03 11:16:49 2009 +0100
@@ -653,7 +653,6 @@
^ 2 "must be careful here, whenever ST/X is used on VAX or a 370"
! !
-
!Float methodsFor:'arithmetic'!
* aNumber
@@ -1253,6 +1252,7 @@
^ super ~= aNumber
! !
+
!Float methodsFor:'mathematical functions'!
exp
@@ -1323,7 +1323,7 @@
!
log10
- "return the bavse-10 logarithm of myself.
+ "return the base-10 logarithm of myself.
Raises an exception, if the receiver is less or equal to zero."
%{ /* NOCONTEXT */
@@ -1337,26 +1337,26 @@
if (val > 0.0)
#endif
{
- __threadErrno = 0;
- rslt = log10(val);
- if (! isnan(rslt)) /* Currently all our systems support isnan() */
- {
- if (__threadErrno == 0) {
- __qMKFLOAT(newFloat, rslt);
- RETURN ( newFloat );
- }
- }
+ __threadErrno = 0;
+ rslt = log10(val);
+ if (! isnan(rslt)) /* Currently all our systems support isnan() */
+ {
+ if (__threadErrno == 0) {
+ __qMKFLOAT(newFloat, rslt);
+ RETURN ( newFloat );
+ }
+ }
}
%}.
"
an invalid value for logarithm
"
^ self class
- raise:#domainErrorSignal
- receiver:self
- selector:#log10
- arguments:#()
- errorString:'bad receiver in log10'
+ raise:#domainErrorSignal
+ receiver:self
+ selector:#log10
+ arguments:#()
+ errorString:'bad receiver in log10'
"Modified: / 16.11.2001 / 14:14:33 / cg"
!
@@ -1437,7 +1437,6 @@
"Modified: / 16.11.2001 / 14:14:43 / cg"
! !
-
!Float methodsFor:'printing & storing'!
printString
@@ -1843,7 +1842,6 @@
"
! !
-
!Float methodsFor:'testing'!
isFinite
@@ -2740,11 +2738,11 @@
!Float class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.171 2009-11-05 16:25:22 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.172 2009-12-03 10:16:49 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.171 2009-11-05 16:25:22 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.172 2009-12-03 10:16:49 cg Exp $'
! !
Float initialize!