diff -r 0cd4e7480440 -r 6c2bc76f0b8f PrimaryNode.st --- a/PrimaryNode.st Sat Dec 11 02:07:55 1993 +0100 +++ b/PrimaryNode.st Sat Dec 11 02:09:49 1993 +0100 @@ -22,7 +22,7 @@ COPYRIGHT (c) 1989 by Claus Gittinger All Rights Reserved -$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.3 1993-10-13 02:41:41 claus Exp $ +$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.4 1993-12-11 01:09:30 claus Exp $ written 88 by claus '! @@ -436,6 +436,10 @@ !PrimaryNode methodsFor:'printing'! +displayString + ^ 'InterpreterVariable(' , self printString , ')' +! + printOn:aStream indent:i (type == #Self) ifTrue:[ aStream nextPutAll:'self'. ^ self