A new version of Collections was added to project The Inbox:
http://source.squeak.org/inbox/Collections-cbc.740.mcz==================== Summary ====================
Name: Collections-cbc.740
Author: cbc
Time: 2 March 2017, 1:06:57.171201 pm
UUID: df2ea404-5798-bd4b-abb9-2d4c05e290c0
Ancestors: Collections-ul.739
Documentation change - explain where the stream pointer is left after calling #upToAll:
=============== Diff against Collections-ul.739 ===============
Item was changed:
----- Method: PositionableStream>>upToAll: (in category 'accessing') -----
upToAll: aCollection
+ "Answer a subcollection from the current access position to the occurrence (if any, but not inclusive) of aCollection.
+ If aCollection is not in the stream, answer the entire rest of the stream.
+ The stream is left pointing to the location just after the found aCollection, or at end if not found."
- "Answer a subcollection from the current access position to the occurrence (if any, but not inclusive) of aCollection. If aCollection is not in the stream, answer the entire rest of the stream."
| startPos endMatch result |
startPos := self position.
(self match: aCollection)
ifTrue: [endMatch := self position.
self position: startPos.
result := self next: endMatch - startPos - aCollection size.
self position: endMatch.
^ result]
ifFalse: [self position: startPos.
^ self upToEnd]!