--- a/SmallInteger.st Mon Mar 31 11:12:58 2003 +0200
+++ b/SmallInteger.st Mon Mar 31 11:15:41 2003 +0200
@@ -520,7 +520,7 @@
%}.
aNumber isInteger ifTrue:[
aNumber == 0 ifTrue:[
- ^ DivisionByZeroSignal raiseRequestWith:thisContext.
+ ^ ZeroDivide raiseRequestWith:thisContext.
].
^ Fraction numerator:self denominator:aNumber
].
@@ -616,7 +616,7 @@
}
%}.
(aNumber = 0) ifTrue:[
- ^ DivisionByZeroSignal raiseRequestWith:thisContext.
+ ^ ZeroDivide raiseRequestWith:thisContext.
].
^ self retry:#// coercing:aNumber
@@ -688,7 +688,7 @@
}
%}.
(aNumber = 0) ifTrue:[
- ^ DivisionByZeroSignal raiseRequestWith:thisContext.
+ ^ ZeroDivide raiseRequestWith:thisContext.
].
^ self retry:#\\ coercing:aNumber
@@ -779,7 +779,7 @@
}
%}.
(aNumber = 0) ifTrue:[
- ^ DivisionByZeroSignal raiseRequestWith:thisContext.
+ ^ ZeroDivide raiseRequestWith:thisContext.
].
^ self retry:#quo: coercing:aNumber
@@ -3309,5 +3309,5 @@
!SmallInteger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.149 2002-07-31 10:30:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.150 2003-03-31 09:15:41 cg Exp $'
! !