#FEATURE by cg
class: Smalltalk class
changed: #readEvalPrintLoop
be really silent with --repl and --silent
--- a/Smalltalk.st Tue May 08 11:10:11 2018 +0200
+++ b/Smalltalk.st Tue May 08 11:30:21 2018 +0200
@@ -4239,19 +4239,20 @@
repl := ReadEvalPrintLoop new.
SilentLoading == true ifTrue:[
- repl answerPrompt:''.
+ repl answerPrompt:''.
+ repl prompt:''.
] ifFalse:[
- Transcript showCR:(self hello).
- Transcript showCR:(self copyrightString).
- Transcript cr.
- Transcript showCR:'Read-eval-print loop; exit with "#exit"; help with "?"'.
+ Transcript showCR:(self hello).
+ Transcript showCR:(self copyrightString).
+ Transcript cr.
+ Transcript showCR:'Read-eval-print loop; exit with "#exit"; help with "?"'.
+ repl prompt:'STX> '.
].
repl
- prompt:'ST> ';
- doChunkFormat:false;
- error:Stderr;
- readEvalPrintLoop
+ doChunkFormat:false;
+ error:Stderr;
+ readEvalPrintLoop
!
restart
@@ -9110,3 +9111,4 @@
version_SVN
^ '$ Id: Smalltalk.st 10648 2011-06-23 15:55:10Z vranyj1 $'
! !
+