--- a/ReadEvalPrintLoop.st Thu Dec 07 19:16:46 2006 +0100
+++ b/ReadEvalPrintLoop.st Thu Dec 07 19:19:31 2006 +0100
@@ -235,7 +235,7 @@
compilerClass := compiler ? Compiler.
prompt notNil ifTrue:[
- output nextPutAll:prompt.
+ error nextPutAll:prompt.
].
input atEnd ifTrue:[
@@ -253,10 +253,16 @@
line := input nextLine.
line notEmptyOrNil ifTrue:[
line = '?' ifTrue:[
- self cmd_help:nil
+ self cmd_help:nil.
+ prompt notNil ifTrue:[
+ error nextPutAll:prompt.
+ ].
] ifFalse:[
(line startsWith:'#') ifTrue:[
- self directive:line
+ self directive:line.
+ prompt notNil ifTrue:[
+ error nextPutAll:prompt.
+ ].
] ifFalse:[
lines add:line.
]
@@ -285,11 +291,11 @@
"
"Created: / 07-12-2006 / 17:27:21 / cg"
- "Modified: / 07-12-2006 / 19:16:27 / cg"
+ "Modified: / 07-12-2006 / 19:20:06 / cg"
! !
!ReadEvalPrintLoop class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.8 2006-12-07 18:16:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.9 2006-12-07 18:19:31 cg Exp $'
! !