diff -r 63762aae964c -r bfe534c912f6 ArithmeticValue.st
--- a/ArithmeticValue.st	Tue Sep 04 13:36:39 2001 +0200
+++ b/ArithmeticValue.st	Tue Sep 04 13:39:17 2001 +0200
@@ -49,11 +49,14 @@
     [class variables:]
         ArithmeticSignal        <Signal>        parent of all arithmetic signals
                                                 (never raised itself)
+                                                New: now a reference to ArithmeticError
 
         DomainErrorSignal       <Signal>        raised upon float errors
                                                 (for example range in trigonometric)
+                                                New: now a reference to DomainError
 
         DivisionByZeroSignal    <Signal>        raised when division by 0 is attempted
+                                                New: now a reference to ZeroDivide
 
         OverflowSignal          <Signal>        raised on overflow/underflow conditions
         UnderflowSignal                         in float arithmetic. 
@@ -86,6 +89,9 @@
     DivisionByZeroSignal := ZeroDivide.
     ZeroDivide      notifierString:'division by zero'.
 
+    UnorderedSignal := UnorderedNumbersError.
+    UnorderedNumbersError notifierString:'unordered'.
+
 "/    ArithmeticSignal isNil ifTrue:[
 "/        ArithmeticSignal := ErrorSignal newSignalMayProceed:true.
 "/        ArithmeticSignal nameClass:self message:#arithmeticSignal.
@@ -122,11 +128,11 @@
         UnderflowSignal notifierString:'underflow'.
     ].
 
-    UnorderedSignal isNil ifTrue:[
-        UnorderedSignal := ArithmeticSignal newSignal.
-        UnorderedSignal nameClass:self message:#unorderedSignal.
-        UnorderedSignal notifierString:'unordered'.
-    ].
+"/    UnorderedSignal isNil ifTrue:[
+"/        UnorderedSignal := ArithmeticSignal newSignal.
+"/        UnorderedSignal nameClass:self message:#unorderedSignal.
+"/        UnorderedSignal notifierString:'unordered'.
+"/    ].
 
     AnyArithmeticSignal := SignalSet with:DomainErrorSignal
                                      with:DivisionByZeroSignal
@@ -944,6 +950,6 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.36 2001-09-04 11:33:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.37 2001-09-04 11:36:53 cg Exp $'
 ! !
 ArithmeticValue initialize!