BrokenPipeSignal now a child of WriteErrorSignal
authorClaus Gittinger <cg@exept.de>
Mon, 20 Nov 1995 15:51:54 +0100
changeset 582 21f08116b28d
parent 581 8a991a4cb738
child 583 1a98eeae0746
BrokenPipeSignal now a child of WriteErrorSignal
PipeStr.st
PipeStream.st
--- a/PipeStr.st	Mon Nov 20 15:34:42 1995 +0100
+++ b/PipeStr.st	Mon Nov 20 15:51:54 1995 +0100
@@ -34,7 +34,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.38 1995-11-11 15:25:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.39 1995-11-20 14:51:54 cg Exp $'
 !
 
 documentation
@@ -188,7 +188,7 @@
     "setup the signal"
 
     BrokenPipeSignal isNil ifTrue:[
-	BrokenPipeSignal := ErrorSignal newSignalMayProceed:true.
+	BrokenPipeSignal := WriteErrorSignal newSignalMayProceed:true.
 	BrokenPipeSignal nameClass:self message:#brokenPipeSignal.
 	BrokenPipeSignal notifierString:'write on a pipe with no one to read'.
     ]
--- a/PipeStream.st	Mon Nov 20 15:34:42 1995 +0100
+++ b/PipeStream.st	Mon Nov 20 15:51:54 1995 +0100
@@ -34,7 +34,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.38 1995-11-11 15:25:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.39 1995-11-20 14:51:54 cg Exp $'
 !
 
 documentation
@@ -188,7 +188,7 @@
     "setup the signal"
 
     BrokenPipeSignal isNil ifTrue:[
-	BrokenPipeSignal := ErrorSignal newSignalMayProceed:true.
+	BrokenPipeSignal := WriteErrorSignal newSignalMayProceed:true.
 	BrokenPipeSignal nameClass:self message:#brokenPipeSignal.
 	BrokenPipeSignal notifierString:'write on a pipe with no one to read'.
     ]