[squeak-dev] The Trunk: Collections-fbs.514.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Apr 26 20:30:43 UTC 2013
Frank Shearar uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-fbs.514.mcz
==================== Summary ====================
Name: Collections-fbs.514
Author: fbs
Time: 26 April 2013, 9:30:07.501 pm
UUID: 26b584d4-1ad3-40b0-b9b1-d888e122116e
Ancestors: Collections-fbs.513
Revert the over-eager (attempt at a) fix.
=============== Diff against Collections-fbs.513 ===============
Item was changed:
----- Method: WriteStream>>nextChunkPut: (in category 'fileIn/Out') -----
nextChunkPut: aString
"Append the argument, aString, to the receiver, doubling embedded terminators."
| i remainder terminator |
terminator := $!!.
remainder := aString.
[(i := remainder indexOf: terminator) = 0] whileFalse:
[self nextPutAll: (remainder copyFrom: 1 to: i).
self nextPut: terminator. "double imbedded terminators"
remainder := remainder copyFrom: i+1 to: remainder size].
self nextPutAll: remainder.
aString includesUnifiedCharacter ifTrue: [
self nextPut: terminator.
self nextPutAll: ']lang['.
aString writeLeadingCharRunsOn: self.
].
self nextPut: terminator.
- self flush.
!
More information about the Squeak-dev
mailing list
|