--- a/MiniDebugger.st Mon Aug 26 22:14:19 2013 +0000
+++ b/MiniDebugger.st Mon Aug 26 11:43:02 2013 +0200
@@ -648,11 +648,11 @@
self interpreterLoopWith:nil.
^ false
].
- (cmd == $e) ifTrue:[
+ (cmd == $E) ifTrue:[
Parser evaluate:commandArg.
^ false
].
- (cmd == $E) ifTrue:[
+ (cmd == $e) ifTrue:[
(Parser evaluate:commandArg) printCR.
^ false
].
@@ -1001,7 +1001,7 @@
r ...... receiver (in dot) printString
i ...... inspect receiver (in dot)
I ...... interpreter (expression evaluator)
- e expr evaluate expression
+ e expr evaluate expression & print result ("E" to not print)
? c [p] help on class c (selectors matching p)
' errorPrintCR.
@@ -1020,10 +1020,10 @@
!MiniDebugger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.86 2013-08-23 17:28:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.87 2013-08-26 09:43:02 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.86 2013-08-23 17:28:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.87 2013-08-26 09:43:02 cg Exp $'
! !