--- a/ReadEvalPrintLoop.st Thu Feb 20 08:44:35 2014 +0100
+++ b/ReadEvalPrintLoop.st Thu Feb 20 08:49:46 2014 +0100
@@ -302,6 +302,9 @@
lineStream skipSeparators.
what := lineStream nextAlphaNumericWord.
(what startsWith:'var') ifTrue:[
+ Workspace workspaceVariables keysAndValuesDo:[:nm :h |
+ errStream nextPutAll:nm; nextPutAll:' -> '; nextPutLine:h value.
+ ].
^ self.
].
(what startsWith:'proc') ifTrue:[
@@ -550,10 +553,10 @@
!ReadEvalPrintLoop class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.44 2014-02-20 07:44:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.45 2014-02-20 07:49:46 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.44 2014-02-20 07:44:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.45 2014-02-20 07:49:46 cg Exp $'
! !