The Trunk: Collections-nice.197.mcz

Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.197.mcz

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

Name: Collections-nice.197
Author: nice
Time: 17 November 2009, 9:39:55 am
UUID: c2afc3fe-ecc6-4168-ad7f-7667553b7032
Ancestors: Collections-nice.196

revert PositionnableStream>>nextLine which is broken for some subclass - until a better fix

=============== Diff against Collections-nice.196 ===============

Item was changed:
  ----- Method: PositionableStream>>nextLine (in category 'accessing') -----
  nextLine
+ "Answer next line (may be empty), or nil if at end"
- "Answer next line (may be empty), or nil if at end.
- Handle a zoo of line delimiters CR, LF, or CR-LF pair"
 
- | newStream element crlf |
  self atEnd ifTrue: [^nil].
+ ^self upTo: Character cr!
- crlf := CharacterSet crlf.
- newStream := WriteStream on: (collection species new: 100).
- [self atEnd ifTrue: [^newStream contents].
- crlf includes: (element := self next)]
- whileFalse: [newStream nextPut: element].
- element = Character cr ifTrue: [self peekFor: Character lf]. "handle an eventual CR LF pair"
- ^newStream contents!