LimitedPrecisionReal.st
changeset 7141 033f2c26d8e6
parent 6890 8e74eff54c3d
child 7356 fe8fb0a571f2
equal deleted inserted replaced
7140:f65ec31fc081 7141:033f2c26d8e6
   222 
   222 
   223 / aNumber
   223 / aNumber
   224     "return the quotient of the receiver and the argument, aNumber"
   224     "return the quotient of the receiver and the argument, aNumber"
   225 
   225 
   226     ((aNumber == 0) or:[aNumber = 0.0]) ifTrue:[
   226     ((aNumber == 0) or:[aNumber = 0.0]) ifTrue:[
   227         ^ DivisionByZeroSignal raiseRequestWith:thisContext.
   227         ^ ZeroDivide raiseRequestWith:thisContext.
   228     ].
   228     ].
   229 "/ as soon as Float are float & Double are doubles,
   229 "/ as soon as Float are float & Double are doubles,
   230 "/ use:
   230 "/ use:
   231 "/    ^ aNumber quotientFromDouble:self asDouble
   231 "/    ^ aNumber quotientFromDouble:self asDouble
   232 
   232 
   688 ! !
   688 ! !
   689 
   689 
   690 !LimitedPrecisionReal class methodsFor:'documentation'!
   690 !LimitedPrecisionReal class methodsFor:'documentation'!
   691 
   691 
   692 version
   692 version
   693     ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.46 2002-11-26 09:33:09 cg Exp $'
   693     ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.47 2003-03-31 09:15:15 cg Exp $'
   694 ! !
   694 ! !
   695 
   695 
   696 LimitedPrecisionReal initialize!
   696 LimitedPrecisionReal initialize!