#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Mon, 14 Jan 2019 18:25:27 +0100
changeset 4790 bacf758a10cc
parent 4789 4daaaab89349
child 4791 1323fc4dc376
#BUGFIX by cg class: ActorStream changed: #nextPutAll:startingAt:to: did output twice.
ActorStream.st
--- a/ActorStream.st	Thu Jan 10 16:26:33 2019 +0100
+++ b/ActorStream.st	Mon Jan 14 18:25:27 2019 +0100
@@ -142,11 +142,13 @@
      If there is no nextPutAllBlock, nextPuts will be used (as inherited)"
 
     nextPutAllBlock notNil ifTrue:[    
-        nextPutAllBlock value:(something copyFrom:start to:stop)
+        nextPutAllBlock value:(something copyFrom:start to:stop).
+        ^ self.
     ].
     super nextPutAll:something startingAt:start to:stop
 
     "Modified: / 22-11-2018 / 12:52:51 / Stefan Vogel"
+    "Modified: / 14-01-2019 / 18:23:40 / Claus Gittinger"
 !
 
 nextPutByte:something