diff -r 65eaf1a009f5 -r 1ef1d1395146 UnaryNode.st --- a/UnaryNode.st Sat Nov 18 17:59:14 1995 +0100 +++ b/UnaryNode.st Thu Nov 23 03:15:59 1995 +0100 @@ -11,10 +11,10 @@ " MessageNode subclass:#UnaryNode - instanceVariableNames:'' - classVariableNames:'' - poolDictionaries:'' - category:'System-Compiler-Support' + instanceVariableNames:'' + classVariableNames:'' + poolDictionaries:'' + category:'System-Compiler-Support' ! !UnaryNode class methodsFor:'documentation'! @@ -33,14 +33,14 @@ " ! -version - ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.17 1995-11-11 15:31:42 cg Exp $' -! - documentation " node for parse-trees, representing unary messages " +! + +version + ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.18 1995-11-23 02:15:16 cg Exp $' ! ! !UnaryNode class methodsFor:'instance creation'! @@ -139,13 +139,6 @@ ^ (self basicNew) receiver:r selector:selectorString args:nil lineno:0 ! ! -!UnaryNode methodsFor:'queries'! - -isUnaryMessage - "return true, if this node is one for a unary message" - ^ true -! ! - !UnaryNode methodsFor:'checks'! plausibilityCheck @@ -167,17 +160,6 @@ ^ nil ! ! -!UnaryNode methodsFor:'evaluating'! - -evaluate - "evaluate the expression represented by the receiver" - - receiver isSuper ifTrue:[ - ^ super evaluate - ]. - ^ (receiver evaluate) perform:selector -! ! - !UnaryNode methodsFor:'code generation'! codeOn:aStream inBlock:b for:aCompiler @@ -223,6 +205,17 @@ ^ super codeOn:aStream inBlock:b for:aCompiler ! ! +!UnaryNode methodsFor:'evaluating'! + +evaluate + "evaluate the expression represented by the receiver" + + receiver isSuper ifTrue:[ + ^ super evaluate + ]. + ^ (receiver evaluate) perform:selector +! ! + !UnaryNode methodsFor:'printing'! printOn:aStream indent:i @@ -247,3 +240,11 @@ selector printString printOn:aStream. " aStream space. " ! ! + +!UnaryNode methodsFor:'queries'! + +isUnaryMessage + "return true, if this node is one for a unary message" + ^ true +! ! +