The Inbox: Collections-ul.345.mcz

A new version of Collections was added to project The Inbox:
http://source.squeak.org/inbox/Collections-ul.345.mcz

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

Name: Collections-ul.345
Author: ul
Time: 22 March 2010, 8:20:09.398 am
UUID: 3384c567-0abc-5346-a752-bbd3ac938e44
Ancestors: Collections-nice.343

- implement #backChunk with #back instead of #oldBack

=============== Diff against Collections-nice.343 ===============

Item was changed:
  ----- Method: PositionableStream>>backChunk (in category 'fileIn/Out') -----
  backChunk
  "Answer the contents of the receiver back to the previous terminator character.  Doubled terminators indicate an embedded terminator character."
 
+ | output character |
+ output := WriteStream on: (String new: 1000).
+ self back. "oldBack compatibility"
+ [ (character := self back) == nil ] whileFalse: [
+ character == $!! ifTrue: [
+ self back == $!! ifFalse: [
+ self skip: 2. "oldBack compatibility"
+ ^output contents reversed ] ].
+ output nextPut: character].
+ self skip: 1. "oldBack compatibility"
+ ^output contents reversed!
- | terminator out ch |
- terminator := $!!.
- out := WriteStream on: (String new: 1000).
- [(ch := self oldBack) == nil] whileFalse:
- [ch == terminator
- ifTrue:
- [self peekBack == terminator
- ifTrue: [self oldBack "skip doubled terminator"]
- ifFalse: [^ out contents reversed]].
- out nextPut: ch].
- ^ out contents reversed!