Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1040.mcz
==================== Summary ====================
Name: Collections-mt.1040 Author: mt Time: 22 May 2023, 11:09:12.610186 am UUID: 79d3b27e-3657-a141-8c98-2ed695e53980 Ancestors: Collections-ct.1039
Remove variable shadows.
=============== Diff against Collections-ct.1039 ===============
Item was changed: ----- Method: HtmlReadWriter>>htmlEscapes: (in category 'reading') ----- htmlEscapes: aString
| lastIndex nextIndex | nextIndex := aString indexOf: $& startingAt: (lastIndex := 1) ifAbsent: [^ aString]. + ^ String new: aString size * 11 // 10 "+10%" streamContents: [:tmpStream | + [tmpStream next: nextIndex - lastIndex putAll: aString startingAt: lastIndex. - ^ String new: aString size * 11 // 10 "+10%" streamContents: [:stream | - [stream next: nextIndex - lastIndex putAll: aString startingAt: lastIndex. nextIndex := aString indexOf: $; startingAt: (lastIndex := nextIndex) ifAbsent: [^ aString]. + tmpStream nextPut: (self htmlEscape: (aString copyFrom: lastIndex to: nextIndex))] - stream nextPut: (self htmlEscape: (aString copyFrom: lastIndex to: nextIndex))] doWhileTrue: [(nextIndex := aString indexOf: $& startingAt: (lastIndex := nextIndex + 1)) > 0]. + tmpStream next: aString size - lastIndex + 1 putAll: aString startingAt: lastIndex]! - stream next: aString size - lastIndex + 1 putAll: aString startingAt: lastIndex]!
squeak-dev@lists.squeakfoundation.org