*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 13 Aug 2001 15:58:02 +0200
changeset 1173 0510a380ff38
parent 1172 401e669ebaf9
child 1174 30ff886ef43e
*** empty log message ***
AssignmentNode.st
--- a/AssignmentNode.st	Mon Aug 13 15:09:45 2001 +0200
+++ b/AssignmentNode.st	Mon Aug 13 15:58:02 2001 +0200
@@ -239,8 +239,12 @@
 
 printOn:aStream indent:i
     variable printOn:aStream.
+    self printOperatorOn:aStream.
+    expression printOn:aStream
+!
+
+printOperatorOn:aStream
     aStream nextPutAll:' := '.
-    expression printOn:aStream
 ! !
 
 !AssignmentNode methodsFor:'queries'!
@@ -260,5 +264,5 @@
 !AssignmentNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.33 2000-08-31 10:01:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.34 2001-08-13 13:58:02 cg Exp $'
 ! !