--- a/PrimaryNode.st	Wed Mar 30 12:09:50 1994 +0200
+++ b/PrimaryNode.st	Wed Mar 30 12:10:24 1994 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.5 1994-01-16 03:51:42 claus Exp $
+$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.6 1994-03-30 10:09:38 claus Exp $
 written 88 by claus
 '!
 
@@ -32,14 +32,22 @@
     ^ value
 ! !
 
+!PrimaryNode methodsFor:'queries'!
+
+isPrimary
+    "return true, if this is a node for a primary (i.e. non-send)"
+
+    ^ true
+! !
+
 !PrimaryNode methodsFor:'evaluating'!
 
 evaluate
-    self subclassResponsibility
+    ^ self subclassResponsibility
 !
 
 store:aValue
-    self subclassResponsibility
+    ^ self subclassResponsibility
 ! !
 
 !PrimaryNode methodsFor:'code generation'!
@@ -50,19 +58,19 @@
 !
 
 codeOn:aStream inBlock:codeBlock
-    self subclassResponsibility
+    ^ self subclassResponsibility
 !
 
 codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded
-    self subclassResponsibility
+    ^ self subclassResponsibility
 ! !
 
 !PrimaryNode methodsFor:'printing'!
 
 displayString
-    self subclassResponsibility
+    ^ self subclassResponsibility
 !
 
 printOn:aStream indent:i
-    self subclassResponsibility
+    ^ self subclassResponsibility
 ! !