--- a/AssignNd.st	Sat Nov 18 17:59:14 1995 +0100
+++ b/AssignNd.st	Thu Nov 23 03:15:59 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 ParseNode subclass:#AssignmentNode
-       instanceVariableNames:'variable expression'
-       classVariableNames:''
-       poolDictionaries:''
-       category:'System-Compiler-Support'
+	 instanceVariableNames:'variable expression'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'System-Compiler-Support'
 !
 
 !AssignmentNode class methodsFor:'documentation'!
@@ -33,14 +33,14 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.13 1995-11-11 15:29:49 cg Exp $'
-!
-
 documentation
 "
     node for parse-trees, representing assignments
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.14 1995-11-23 02:12:04 cg Exp $'
 ! !
 
 !AssignmentNode class methodsFor:'instance creation'!
@@ -49,32 +49,15 @@
     ^ (self basicNew) variable:v expression:e
 ! !
 
-!AssignmentNode methodsFor:'evaluating'!
-
-evaluate
-    |value|
-    value := expression evaluate.
-    variable store:value.
-    ^ value
-! !
+!AssignmentNode methodsFor:'accessing'!
 
-!AssignmentNode methodsFor:'queries'!
-
-isAssignment
-    "return true, if this is a node for an assignment"
-
-    ^ true
-! !
-
-!AssignmentNode methodsFor:'accessing'!
+expression
+    ^ expression
+!
 
 variable:v expression:e
     variable := v.
     expression := e
-!
-
-expression
-    ^ expression
 ! !
 
 !AssignmentNode methodsFor:'code generation'!
@@ -126,6 +109,15 @@
     variable codeStoreOn:aStream inBlock:b valueNeeded:true for:aCompiler
 ! !
 
+!AssignmentNode methodsFor:'evaluating'!
+
+evaluate
+    |value|
+    value := expression evaluate.
+    variable store:value.
+    ^ value
+! !
+
 !AssignmentNode methodsFor:'printing'!
 
 printOn:aStream indent:i
@@ -133,3 +125,12 @@
     aStream nextPutAll:' := '.
     expression printOn:aStream
 ! !
+
+!AssignmentNode methodsFor:'queries'!
+
+isAssignment
+    "return true, if this is a node for an assignment"
+
+    ^ true
+! !
+