avoid two queries for rejected signals.
--- 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!