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

commits at source.squeak.org commits at source.squeak.org
Fri May 29 02:12:38 UTC 2015


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

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

Name: System-cmm.738
Author: cmm
Time: 28 May 2015, 9:11:50.464 pm
UUID: 261f1783-9b35-4a2b-a386-fa429b57ebab
Ancestors: System-ul.737

Fix #run: leaving headless image stuck because there was a MNU or Halt.

=============== Diff against System-ul.737 ===============

Item was changed:
  ----- Method: SmalltalkImage>>run: (in category 'command line') -----
  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."
  			aBlock value: self arguments ]
  		ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ]
  		on: ProgressInitiationException
  		do:
+ 			[ : pie | "Don't want to log these notifications."
- 			[ : 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.
  			self isHeadless
  				ifTrue: [ self snapshot: false andQuit: true ]
  				ifFalse: [ err pass ] ]
+ 		on: Error, MessageNotUnderstood, Halt
- 		on: Error
  		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