A new version of System was added to project The Inbox:
http://source.squeak.org/inbox/System-ct.1128.mcz

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

Name: System-ct.1128
Author: ct
Time: 14 December 2019, 3:14:14.108612 pm
UUID: 89698e0d-cee3-2041-afa8-96674d632912
Ancestors: System-mt.1127

Extends Transcripter with #clear command and refactors readEvalPrint loop

- Adds #showln: method

=============== Diff against System-mt.1127 ===============

Item was changed:
  ----- Method: Transcripter>>readEvalPrint (in category 'command line') -----
  readEvalPrint
  	| line okToRevert |
  	okToRevert := true.
+ 	[#(quit exit done) includes: (line := self request: '>')]
+ 		whileFalse: [ line
+ 			caseOf: {
+ 				[#revert] -> [okToRevert
+ 					ifTrue: [RecentMessages default revertMostRecent.
+ 						self showln: 'reverted: ' , RecentMessages default mostRecent.
+ 						okToRevert := false]
+ 					ifFalse: [self showln: 'Only one level of revert currently supported']].
+ 				[#clear] -> [self clear]. }
+ 			otherwise: [
+ 				self showln: ([Compiler evaluate: line] ifError: [:err :ex | err])] ]!
- 	[#('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] ifError: [:err :ex | err])]]!

Item was added:
+ ----- Method: Transcripter>>showln: (in category 'accessing') -----
+ showln: anObject
+ 	self
+ 		cr;
+ 		show: anObject!