[Pkg] The Trunk: System-cmm.694.mcz

[commits at source.squeak.org]

Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.694.mcz

==================== Summary ====================

Name: System-cmm.694
Author: cmm
Time: 16 January 2015, 3:44:19.079 pm
UUID: e79a2347-2f40-4fec-8f00-f67ecad68491
Ancestors: System-dtl.693

- #flush stdout and stderr after writing error information to them.
- After that, if the exception is resumable (i.e. a Warning), resume it.  Except if its a MessageNotUnderstood -- that is not an error you want to resume in a headless environment.

=============== Diff against System-dtl.693 ===============

Item was changed:
  ----- Method: SmalltalkImage>>run: (in category 'command line') -----
+ run: aBlock
- run: aBlock 
  	[ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ])
+ 		ifTrue: [ "Allow a large, variable number of arguments to be passed as an Array to aBlock."
- 		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 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.
- 				 cr.
  			self haltOrQuit ]
  		on: Error
  		do:
  			[ : err | err printVerboseOn: FileStream stderr.
+ 			FileStream stderr flush.
+ 			(err isResumable and: [ (err isKindOf: MessageNotUnderstood) not ])
+ 				ifTrue: [ err resume ]
+ 				ifFalse: [ self haltOrQuit ] ]!
- 			self haltOrQuit.
- 			err isResumable ifTrue: [ err resume ] ]!