The Trunk: Files-ul.151.mcz

Levente Uzonyi uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-ul.151.mcz

==================== Summary ====================

Name: Files-ul.151
Author: ul
Time: 30 March 2016, 2:24:00.086677 am
UUID: 5c8941ce-af98-4464-8bad-423c8bf7ddb5
Ancestors: Files-mt.150

Improvement #peekFor: performance.

=============== Diff against Files-mt.150 ===============

Item was changed:
  ----- Method: StandardFileStream>>peekFor: (in category 'access') -----
  peekFor: item
  "Answer false and do not advance if the next element is not equal to item, or if this stream is at the end.  If the next element is equal to item, then advance over it and return true"
+
- | next |
  "self atEnd ifTrue: [^ false]. -- SFStream will give nil"
+ (self next ifNil: [ ^false ]) = item ifTrue: [ ^true ].
- (next := self next) == nil ifTrue: [^ false].
- item = next ifTrue: [^ true].
  self skip: -1.
  ^ false!