Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.683.mcz
==================== Summary ====================
Name: Collections-ul.683 Author: ul Time: 30 March 2016, 2:23:29.737891 am UUID: f0634d1c-37d8-4ed1-84cc-6439546aaa74 Ancestors: Collections-ul.682
Improvement #peekFor: performance.
=============== Diff against Collections-ul.682 ===============
Item was changed: ----- Method: PositionableStream>>peekFor: (in category 'accessing') ----- peekFor: anObject "Answer false and do not move over the next element if it is not equal to the argument, anObject, or if the receiver is at the end. Answer true and increment the position for accessing elements, if the next element is equal to anObject."
- | nextObject | self atEnd ifTrue: [^false]. - nextObject := self next. - "peek for matching element" - anObject = nextObject ifTrue: [^true]. "gobble it if found" + self next = anObject ifTrue: [ ^true ]. position := position - 1. ^false!