avoid two queries for rejected signals.
authorClaus Gittinger <cg@exept.de>
Mon, 15 Jun 1998 18:03:52 +0200
changeset 3580 47534257f9e5
parent 3579 7d9a4ec2be4f
child 3581 24a4c149bafb
avoid two queries for rejected signals.
PosStream.st
PositionableStream.st
--- a/PosStream.st	Mon Jun 15 17:23:42 1998 +0200
+++ b/PosStream.st	Mon Jun 15 18:03:52 1998 +0200
@@ -494,6 +494,12 @@
                 ErrorSignal handle:[:ex |
                     |action what sender msg param oldPackage newPackage|
 
+                    ex signal == Signal noHandlerSignal ifTrue:[
+                        ex parameter rejected ifTrue:[
+                            ex reject
+                        ]
+                    ].
+
                     "/ for your convenience ...
                     ex signal == methodRedefinitionSignal ifTrue:[
                         param := ex parameter. "/ an association: oldMethod -> newMethod
@@ -789,6 +795,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PosStream.st,v 1.63 1998-04-21 16:55:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PosStream.st,v 1.64 1998-06-15 16:03:52 cg Exp $'
 ! !
 PositionableStream initialize!
--- a/PositionableStream.st	Mon Jun 15 17:23:42 1998 +0200
+++ b/PositionableStream.st	Mon Jun 15 18:03:52 1998 +0200
@@ -494,6 +494,12 @@
                 ErrorSignal handle:[:ex |
                     |action what sender msg param oldPackage newPackage|
 
+                    ex signal == Signal noHandlerSignal ifTrue:[
+                        ex parameter rejected ifTrue:[
+                            ex reject
+                        ]
+                    ].
+
                     "/ for your convenience ...
                     ex signal == methodRedefinitionSignal ifTrue:[
                         param := ex parameter. "/ an association: oldMethod -> newMethod
@@ -789,6 +795,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.63 1998-04-21 16:55:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.64 1998-06-15 16:03:52 cg Exp $'
 ! !
 PositionableStream initialize!