LimitedPrecisionReal.st
changeset 112 ea0d780bab58
parent 92 0c73b48551ac
child 213 3b56a17534fd
--- 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
 !