Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.1449.mcz
==================== Summary ====================
Name: System-cmm.1449 Author: cmm Time: 26 February 2024, 9:30:48.069874 pm UUID: 36e12e44-7aca-4655-ab39-72363788d382 Ancestors: System-dtl.1448
Revert cmm.1447 because #cr is always what should be written in platform-independent Squeak code, and letting the particular FileStream handle the line-end conversion.
=============== Diff against System-dtl.1448 ===============
Item was changed: ----- Method: CodeLoader>>installSourceFile: (in category 'installing') ----- installSourceFile: aStream "Install the previously loaded source file" | contents trusted | aStream ifNil:[^self error:'No content to install']. trusted := SecurityManager default positionToSecureContentsOf: aStream. trusted ifFalse:[(SecurityManager default enterRestrictedMode) ifFalse:[ aStream close. ^ self error:'Insecure content encountered']]. contents := self allButShebangLine: aStream upToEnd unzipped asString. (aStream respondsTo: #close) ifTrue:[aStream close]. ^[contents readStream fileIn] on: SyntaxErrorNotification do: [ : err | Smalltalk isHeadless ifTrue: + [FileStream stdout nextPutAll: err errorCode; cr; flush. - [FileStream stdout nextPutAll: err errorCode; lf; flush. Smalltalk snapshot: false andQuit: true ] ifFalse: [err pass] ]!
Item was changed: ----- Method: Exception>>printVerboseOn: (in category '*system') ----- printVerboseOn: aStream aStream nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ; + cr ; - lf ; nextPutAll: 'The time is ', DateAndTime now asString ; + cr. - lf. "Allow applications to optionally print extra details without overriding a base package." self printDetailsOn: aStream. aStream nextPutAll: self signalerContext longStack ; + cr ; - lf ; nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ; + cr ; - lf ; flush!
Item was changed: ----- Method: Preferences class>>debugLogTimestamp (in category 'standard queries') ----- debugLogTimestamp ^ self valueOfFlag: #debugLogTimestamp + ifAbsent: [ false ]! - ifAbsent: [false]!
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: SyntaxErrorNotification do: [ : err | FileStream stdout nextPutAll: err errorCode ; + cr; flush. - lf; flush. self isHeadless ifTrue: [ self snapshot: false andQuit: true ] ifFalse: [ err pass ] ] on: Error , ProvideAnswerNotification 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. - lf. noti resume ] !