--- a/CollectingSharedQueueStream.st Mon Aug 26 23:12:40 2019 +0200
+++ b/CollectingSharedQueueStream.st Mon Aug 26 23:13:06 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1997 by Claus Gittinger
All Rights Reserved
@@ -187,9 +189,8 @@
!
nextPut:anObject
- "append anObject to the queue; if anyone is waiting, tell him"
-
- |value|
+ "append anObject to the queue; if anyone is waiting, tell him.
+ Answer anObject"
contents add:anObject.
writePosition := writePosition + 1.
@@ -199,7 +200,8 @@
self changed:#size with:nil
]
].
- dataAvailable signal
+ dataAvailable signal.
+ ^ anObject
"Created: 5.3.1997 / 14:33:44 / cg"
"Modified: 5.3.1997 / 15:42:33 / cg"