[squeak-dev] The Trunk: System-cmm.694.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Jan 16 21:45:01 UTC 2015
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 ] ]!
More information about the Squeak-dev
mailing list
|