[squeak-dev] The Trunk: Collections-fbs.516.mcz

Frank Shearar frank.shearar at gmail.com
Thu May 2 18:49:35 UTC 2013


On 2 May 2013 19:19, Chris Muller <asqueaker at gmail.com> wrote:
> Hmph -- since you were asking for consensus on something, it would be
> nice to have a little more time to respond -- as I did in < 24 hours,
> but still apparently too late.
>
>
> didn't get much discussion.  ay we please have more time

Sure. In my defence, this was seriously getting in my way... but I
guess the response to that is "well keep the change in your image".
Ah, well.

frank

> On Thu, May 2, 2013 at 5:56 AM,  <commits at source.squeak.org> wrote:
>> Frank Shearar uploaded a new version of Collections to project The Trunk:
>> http://source.squeak.org/trunk/Collections-fbs.516.mcz
>>
>> ==================== Summary ====================
>>
>> Name: Collections-fbs.516
>> Author: fbs
>> Time: 1 May 2013, 10:14:23.588 pm
>> UUID: e787006a-d096-47f3-93da-c4681285fae2
>> Ancestors: Collections-ul.515
>>
>> Surrounding the -> in an Assocation in printed form allows the left side to be a binary selector without things breaking: #* -> #+ otherwise prints as '#*->#+', which is the Symbol #*-> followed by garbage.
>>
>> =============== Diff against Collections-ul.515 ===============
>>
>> Item was changed:
>>   ----- Method: Association>>printOn: (in category 'printing') -----
>>   printOn: aStream
>>
>>         super printOn: aStream.
>> +       "If the key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol."
>> +       aStream nextPutAll: ' -> '.
>> -       aStream nextPutAll: '->'.
>>         value printOn: aStream!
>>
>> Item was changed:
>>   ----- Method: Association>>storeOn: (in category 'printing') -----
>>   storeOn: aStream
>>         "Store in the format (key->value)"
>>         aStream nextPut: $(.
>>         key storeOn: aStream.
>> +       "If key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol."
>> +       aStream nextPutAll: ' -> '.
>> -       aStream nextPutAll: '->'.
>>         value storeOn: aStream.
>>         aStream nextPut: $)!
>>
>>
>


More information about the Squeak-dev mailing list