author | Claus Gittinger <cg@exept.de> |
Mon, 26 Aug 2019 23:54:02 +0200 | |
changeset 5186 | 600bc66259ef |
parent 5185 | b6e34a5fd2d9 |
child 5187 | cba4d5fc4f6d |
SharedQueue.st | file | annotate | diff | comparison | revisions |
--- a/SharedQueue.st Mon Aug 26 23:53:56 2019 +0200 +++ b/SharedQueue.st Mon Aug 26 23:54:02 2019 +0200 @@ -388,7 +388,8 @@ nextPut:anObject "enter anObject to the end of the queue; Wait for available space, if the queue is full. - After the put, signal availablity of a datum to readers." + After the put, signal availablity of a datum to readers. + Answer anObject" self commonWriteWith:[self superNextPut:anObject]. ^ anObject