[squeak-dev] The Trunk: System-cmm.913.mcz

Tobias Pape Das.Linux at gmx.de
Wed Aug 31 23:38:42 UTC 2016


Hi

Where's the problem with calling the image with 'patch.st' in the first place?
It looks a little bit out of place for me here.
Also, Why Kill MNU and Halt from the list?
I'm a bit confused about this part of the pathc…

Best regards
	-tobias
On 31.08.2016, at 23:33, commits at source.squeak.org wrote:

> Item was added:
> + ----- Method: SmalltalkImage>>patchSystem (in category 'command line') -----
> + patchSystem
> + 	(FileDirectory default fileExists: 'patch.st') ifTrue:
> + 		[Notification signal: 'Patching system...'.
> + 		FileStream
> + 			fileNamed: 'patch.st'
> + 			do: [ : stream | stream fileIn ] ]!
> 
> Item was changed:
>  ----- Method: SmalltalkImage>>run: (in category 'command line') -----
>  run: aBlock
> + 	[ [ self patchSystem.
> + 	(aBlock numArgs = 1 and: [ self arguments size > 1 ])
> - 	[ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ])
>  		ifTrue: [ "Allow a large, variable number of arguments to be passed as an Array to aBlock."
>  			aBlock value: self arguments ]
>  		ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ]
>  		on: ProgressInitiationException
>  		do:
> + 			[ : pie | "Don't want to log this notification."
> - 			[ : pie | "Don't want to log these notifications."
>  			pie defaultAction ] ]
>  		on: Notification , Warning
>  		do:
>  			[ : noti | FileStream stdout
>  				 nextPutAll: DateAndTime now asString ;
>  				 space ;
>  				 nextPutAll: noti description ;
>  				 cr.
>  			noti resume ]
>  		on: SyntaxErrorNotification
>  		do:
>  			[ : err | FileStream stdout
>  				 nextPutAll: err errorCode ;
>  				 cr; flush.
>  			self isHeadless
>  				ifTrue: [ self snapshot: false andQuit: true ]
>  				ifFalse: [ err pass ] ]
> + 		on: Error
> - 		on: Error, MessageNotUnderstood, Halt
>  		do:
>  			[ : err | err printVerboseOn: FileStream stderr.
>  			FileStream stderr flush.
>  			self isHeadless
>  				ifTrue: [ self snapshot: false andQuit: true ]
>  				ifFalse: [ err pass ] ]!



More information about the Squeak-dev mailing list