The Trunk: System-cmm.612.mcz

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

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

Name: System-cmm.612
Author: cmm
Time: 31 October 2013, 8:51:21.011 pm
UUID: 829f7d46-28b2-4141-bfea-929a91e6c001
Ancestors: System-fbs.611

- Stop blowing away RecentMessages every time System is updated.
- Rename Smalltalk #do: nomenclature to #run:, because do: is so heavily associated with enumeration of Collections.
- Refer to stdout and stderr through FileStream instead of StandardFileStream.

=============== Diff against System-fbs.611 ===============

Item was changed:
  (PackageInfo named: 'System') preamble: '"Prepare for removing the recent-message-tracking from Utilities."
+ '!
- SystemChangeNotifier uniqueInstance noMoreNotificationsFor: Utilities.
- RecentMessages startUp.'!

Item was removed:
- ----- Method: SmalltalkImage>>do: (in category 'command line') -----
- do: aBlock
- [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ])
-                 ifTrue: [ 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 | StandardFileStream stdout
- nextPutAll: DateAndTime now asString ;
- space ;
- nextPutAll: noti description ;
- cr.
- noti resume ]
- on: SyntaxErrorNotification
- do:
- [ : err | StandardFileStream stdout
- nextPutAll: err errorCode ;
- cr.
- self haltOrQuit ]
- on: Error
- do:
- [ : err | err printVerboseOn: StandardFileStream stderr.
- self haltOrQuit.
- err isResumable ifTrue: [ err resume ] ]!

Item was removed:
- ----- Method: SmalltalkImage>>do:snapshotAs:andQuit: (in category 'command line') -----
- do: aBlock snapshotAs: imageName andQuit: shouldQuit
- self do: aBlock.
- imageName
- ifNil:
- [ shouldQuit ifTrue:
- [ self
- snapshot: false
- andQuit: shouldQuit ] ]
- ifNotNil:
- [ | correctName |
- correctName := (imageName endsWith: '.image')
- ifTrue: [ imageName ]
- ifFalse: [ imageName , '.image' ].
- (FileDirectory default fullNameFor: correctName) = self imageName
- ifTrue:
- [ self
- snapshot: true
- andQuit: shouldQuit ]
- ifFalse:
- [ self saveAs: imageName.
- "Avoid instant-quit when relaunching by resaving."
- shouldQuit ifTrue:
- [ self
- snapshot: true
- andQuit: shouldQuit ] ] ]!

Item was removed:
- ----- Method: SmalltalkImage>>doAndQuit: (in category 'command line') -----
- doAndQuit: aBlock
- self
- do: aBlock
- snapshotAs: nil
- andQuit: true!

Item was added:
+ ----- Method: SmalltalkImage>>run: (in category 'command line') -----
+ run: aBlock
+ [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ])
+                 ifTrue: [ 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.
+ self haltOrQuit ]
+ on: Error
+ do:
+ [ : err | err printVerboseOn: FileStream stderr.
+ self haltOrQuit.
+ err isResumable ifTrue: [ err resume ] ]!

Item was added:
+ ----- Method: SmalltalkImage>>run:snapshotAs:andQuit: (in category 'command line') -----
+ run: aBlock snapshotAs: imageName andQuit: shouldQuit
+ self run: aBlock.
+ imageName
+ ifNil:
+ [ shouldQuit ifTrue:
+ [ self
+ snapshot: false
+ andQuit: shouldQuit ] ]
+ ifNotNil:
+ [ | correctName |
+ correctName := (imageName endsWith: '.image')
+ ifTrue: [ imageName ]
+ ifFalse: [ imageName , '.image' ].
+ (FileDirectory default fullNameFor: correctName) = self imageName
+ ifTrue:
+ [ self
+ snapshot: true
+ andQuit: shouldQuit ]
+ ifFalse:
+ [ self saveAs: imageName.
+ "Avoid instant-quit when relaunching by resaving."
+ shouldQuit ifTrue:
+ [ self
+ snapshot: true
+ andQuit: shouldQuit ] ] ]!

Item was added:
+ ----- Method: SmalltalkImage>>runAndQuit: (in category 'command line') -----
+ runAndQuit: aBlock
+ self
+ run: aBlock
+ snapshotAs: nil
+ andQuit: true!