The Trunk: System-cmm.738.mcz

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 ] ]!