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

commits at source.squeak.org commits at source.squeak.org
Thu Sep 8 05:10:21 UTC 2022


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

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

Name: System-cmm.1369
Author: cmm
Time: 8 September 2022, 12:10:18.750061 am
UUID: a8c13c20-b18b-4b8a-a5a1-e2ddcbd0a856
Ancestors: System-cmm.1368

Handle ProvideAnswerNotification's during headless operation the same as an Error (print and exit).

=============== Diff against System-cmm.1368 ===============

Item was changed:
  ----- Method: SmalltalkImage>>run: (in category 'command line') -----
  run: aBlock
  	[ [ self patchSystem.
  	(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 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 , ProvideAnswerNotification
- 		on: Error
  		do:
  			[ : err | err printVerboseOn: FileStream stderr.
  			FileStream stderr flush.
  			self isHeadless
  				ifTrue: [ self snapshot: false andQuit: true ]
+ 				ifFalse: [ err pass ] ]
+ 		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 ]
+ !
- 				ifFalse: [ err pass ] ]!



More information about the Squeak-dev mailing list