Mercurial Mercurial > hg > stx-libbasic2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#OTHER by exept
authorClaus Gittinger <cg@exept.de>
Mon, 26 Aug 2019 23:13:43 +0200
changeset 5167 cf84949dd61b
parent 5166 84f50c9fd4e4
child 5168 fee2c272b167
#OTHER by exept changed: #nextPut: returns its argument
ZipArchive.st file | annotate | diff | comparison | revisions 
--- a/ZipArchive.st	Mon Aug 26 23:13:16 2019 +0200
+++ b/ZipArchive.st	Mon Aug 26 23:13:43 2019 +0200
@@ -5404,7 +5404,8 @@
 
     uncompressedDataSize := uncompressedDataSize + 1.
     crc32 := ZipStream crc32Add:anObject crc:crc32.
-    compressingStream nextPut:anObject
+    compressingStream nextPut:anObject.
+    ^ anObject
 !
 
 nextPutAll:aCollection
hg/stx-libbasic2