Yes, that's a good point, but how about proposing an alternative next time?

#run:?




On Sun, Oct 27, 2013 at 3:36 PM, Nicolas Cellier
<nicolas.cellier.aka.nice at gmail.com> wrote:
> Also note that Smalltalk do: did mean a different thing when Smalltalk was
> the SystemDictionary.
>
>
> 2013/10/27 Nicolas Cellier <nicolas.cellier.aka.nice at gmail.com>
>>
>> And yet another, shouldn't we rather integrate the excellent work that
>> Camillo Bruni did in Pharo?
>>
>> See System-CommandLine at
>>
>> MCHttpRepository
>>     location: 'http://smalltalkhub.com/mc/Pharo/Pharo30/main'
>>     user: ''
>>     password: ''
>>
>>
>> 2013/10/27 Nicolas Cellier <nicolas.cellier.aka.nice at gmail.com>
>>>
>>> Another question, why do: ?
>>> I find this a false polymorphism and its usage is rather hard to trace...
>>>
>>>
>>> 2013/10/26 <commits at source.squeak.org>
>>>
>>>> Chris Muller uploaded a new version of System to project The Trunk:
>>>> http://source.squeak.org/trunk/System-cmm.610.mcz
>>>>
>>>> ==================== Summary ====================
>>>>
>>>> Name: System-cmm.610
>>>> Author: cmm
>>>> Time: 26 October 2013, 2:17:09.114 pm
>>>> UUID: a27149c5-0fd6-4bef-a34a-57db707aec83
>>>> Ancestors: System-dtl.609
>>>>
>>>> Consider valueWithAllPossibleArguments: special enough to inline, for
>>>> now.
>>>>
>>>> =============== Diff against System-dtl.609 ===============
>>>>
>>>> Item was changed:
>>>>   ----- Method: SmalltalkImage>>do: (in category 'command line') -----
>>>>   do: aBlock
>>>> +       [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ])
>>>> +                 ifTrue: [ aBlock value: self arguments ]
>>>> +                 ifFalse: [ aBlock valueWithEnoughArguments: self
>>>> arguments ] ]
>>>> -       [ [ aBlock valueWithAllPossibleArguments: self arguments ]
>>>>                 on: ProgressInitiationException
>>>>                 do:
>>>>                         [ : pie | "Don't want to log this notification."
>>>>                         pie defaultAction ] ]
>>>>                 on: Notification , Warning
>>>>                 do:
>>>>                         [ : noti | StandardFileStream stdout
>>>>                                  nextPutAll: DateAndTime now asString ;
>>>>                                  space ;
>>>>                                  nextPutAll: noti description ;
>>>>                                  cr.
>>>>                         noti resume ]
>>>>                 on: SyntaxErrorNotification
>>>>                 do:
>>>>                         [ : err | StandardFileStream stdout
>>>>                                  nextPutAll: err errorCode ;
>>>>                                  cr.
>>>>                         self haltOrQuit ]
>>>>                 on: Error
>>>>                 do:
>>>>                         [ : err | err printVerboseOn: StandardFileStream
>>>> stderr.
>>>>                         self haltOrQuit.
>>>>                         err isResumable ifTrue: [ err resume ] ]!
>>>>
>>>>
>>>
>>
>
>
>
>