Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cmm.803.mcz
==================== Summary ====================
Name: Collections-cmm.803 Author: cmm Time: 26 July 2018, 4:01:33.780963 pm UUID: d6d9dcd4-56c1-4242-9bf8-18d2caa66516 Ancestors: Collections-dtl.802, Collections-cmm.801
Merge.
=============== Diff against Collections-dtl.802 ===============
Item was changed: ----- Method: Text class>>string:runs: (in category 'private') ----- string: aString runs: anArray
+ ^self basicNew setString: aString setRuns: anArray! - ^self basicNew setString: aString setRunsChecking: anArray!
Item was changed: ----- Method: Text>>setString:setRunsChecking: (in category 'private') ----- setString: aString setRunsChecking: aRunArray + "Check runs and do the best you can to make them fit..." + - | stringSize runsSize | string := aString. + "check the runs" aRunArray ifNil: [^ aString asText]. + (aRunArray isKindOf: RunArray) ifFalse: [^ aString asText]. + aRunArray runs size = aRunArray values size ifFalse: [^ aString asText]. + aRunArray size = aString size ifFalse: [^ aString asText]. + runs := aRunArray.! - "Check runs and do the best you can to make them fit..." - aRunArray runs size = aRunArray values size ifFalse: [^ aString asText]. "raise error here?" - runsSize := aRunArray size. - stringSize := string size. - runs := stringSize = runsSize - ifTrue: [aRunArray] - ifFalse: [ stringSize > runsSize - ifTrue: [aRunArray addLast: {} times: stringSize - runsSize] - ifFalse: [aRunArray copyFrom: 1 to: stringSize]].!
packages@lists.squeakfoundation.org