Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1433.mcz
==================== Summary ====================
Name: System-ct.1433 Author: ct Time: 13 November 2023, 7:56:11.254583 pm UUID: 39d1f112-d37f-c24f-b1cf-5a3c7815fd0c Ancestors: System-ct.1432
Uses #printString instead of #asString for displaying the result of an evaluated expression.
See: https://lists.squeakfoundation.org/archives/list/squeak-dev@lists.squeakfoun...
=============== Diff against System-ct.1432 ===============
Item was changed: ----- Method: DoItFirst>>doIt: (in category 'actions') ----- doIt: arguments "Evaluate arguments and print the result on stdout, or error message on stderr. Exit the image after any error." arguments do: [ :arg | + [ self printOut: (Compiler evaluate: arg) printString ] - [ self printOut: (Compiler evaluate: arg) asString ] on: Error do: [ :ex | self printError: ex asString ]].!
Item was changed: ----- Method: DoItFirst>>evaluateOption: (in category 'actions') ----- evaluateOption: arg "Evaluate option and print the result on stdout, or error message on stderr. Exit immediately without saving the image." | safeToQuit | + [ safeToQuit := self printOut: (Compiler evaluate: arg) printString ] - [ safeToQuit := self printOut: (Compiler evaluate: arg) asString ] on: Error do: [ :ex | safeToQuit := self printError: ex asString ]. safeToQuit ifTrue: [ Smalltalk quitPrimitive ].!
Item was changed: ----- Method: Transcripter>>readEvalPrint (in category 'command line') ----- readEvalPrint | line okToRevert | okToRevert := true. [#('quit' 'exit' 'done' ) includes: (line := self request: '>')] whileFalse: [line = 'revert' ifTrue: [okToRevert ifTrue: [RecentMessages default revertMostRecent. self cr; show: 'reverted: ' , RecentMessages default mostRecent. okToRevert := false] ifFalse: [self cr; show: 'Only one level of revert currently supported']] + ifFalse: [self cr; show: ([(Compiler evaluate: line) printString] ifError: [:err :ex | err])]]! - ifFalse: [self cr; show: ([Compiler evaluate: line] ifError: [:err :ex | err])]]!