equal
deleted
inserted
replaced
317 lineStream skipSeparators. |
317 lineStream skipSeparators. |
318 what := lineStream nextAlphaNumericWord. |
318 what := lineStream nextAlphaNumericWord. |
319 what notNil ifTrue:[ |
319 what notNil ifTrue:[ |
320 (what startsWith:'var') ifTrue:[ |
320 (what startsWith:'var') ifTrue:[ |
321 Workspace notNil ifTrue:[ |
321 Workspace notNil ifTrue:[ |
322 Workspace workspaceVariables keysAndValuesDo:[:nm :h | |
322 Workspace workspaceVariables keys asOrderedCollection sort do:[:nm | |
323 errStream nextPutAll:nm; nextPutAll:' -> '; nextPutLine:h value printString. |
323 |holder| |
|
324 holder := Workspace workspaceVariables at:nm. |
|
325 errStream nextPutAll:nm; nextPutAll:' -> '; nextPutLine:holder value printString. |
324 ]. |
326 ]. |
325 ]. |
327 ]. |
326 ^ self. |
328 ^ self. |
327 ]. |
329 ]. |
328 (what startsWith:'proc') ifTrue:[ |
330 (what startsWith:'proc') ifTrue:[ |