--- a/AssignmentNode.st	Fri Feb 25 14:16:27 1994 +0100
+++ b/AssignmentNode.st	Wed Mar 30 12:07:33 1994 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.4 1993-12-11 01:05:14 claus Exp $
+$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.5 1994-03-30 10:06:50 claus Exp $
 '!
 
 !AssignmentNode class methodsFor:'instance creation'!
@@ -40,11 +40,23 @@
     ^ value
 ! !
 
+!AssignmentNode methodsFor:'queries'!
+
+isAssignment
+    "return true, if this is a node for an assignment"
+
+    ^ true
+! !
+
 !AssignmentNode methodsFor:'accessing'!
 
 variable:v expression:e
     variable := v.
     expression := e
+!
+
+expression
+    ^ expression
 ! !
 
 !AssignmentNode methodsFor:'code generation'!