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!