[Pkg] 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:

==================== 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 Packages mailing list