--- a/LimitedPrecisionReal.st Thu Aug 11 23:38:52 1994 +0200
+++ b/LimitedPrecisionReal.st Mon Aug 22 14:09:17 1994 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.4 1994-08-05 00:55:05 claus Exp $
+$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.5 1994-08-22 12:09:17 claus Exp $
'!
!LimitedPrecisionReal class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.4 1994-08-05 00:55:05 claus Exp $
+$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.5 1994-08-22 12:09:17 claus Exp $
"
!
@@ -137,8 +137,7 @@
"return the quotient of the receiver and the argument, aNumber"
((aNumber == 0) or:[aNumber = 0.0]) ifTrue:[
- DivisionByZeroSignal raise.
- ^ self
+ ^ DivisionByZeroSignal raise.
].
^ aNumber quotientFromDouble:self asDouble
!