--- a/BinaryNd.st	Sat Nov 18 17:59:14 1995 +0100
+++ b/BinaryNd.st	Thu Nov 23 03:15:59 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 MessageNode subclass:#BinaryNode
-       instanceVariableNames:''
-       classVariableNames:''
-       poolDictionaries:''
-       category:'System-Compiler-Support'
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'System-Compiler-Support'
 !
 
 !BinaryNode class methodsFor:'documentation'!
@@ -33,14 +33,14 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BinaryNd.st,v 1.17 1995-11-11 15:30:10 cg Exp $'
-!
-
 documentation
 "
     node for parse-trees, representing binary message sends
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BinaryNd.st,v 1.18 1995-11-23 02:12:23 cg Exp $'
 ! !
 
 !BinaryNode class methodsFor:'queries'!
@@ -62,27 +62,12 @@
     ^ false
 ! !
 
-!BinaryNode methodsFor:'queries'!
-
-isBinaryMessage
-    ^ true
-! !
-
 !BinaryNode methodsFor:'accessing'!
 
 arg
     ^ argArray at:1
 ! !
 
-!BinaryNode methodsFor:'evaluating'!
-
-evaluate
-    receiver isSuper ifTrue:[
-	^ super evaluate
-    ].
-    ^ (receiver evaluate) perform:selector with:(argArray at:1) evaluate
-! !
-
 !BinaryNode methodsFor:'code generation'!
 
 codeOn:aStream inBlock:b for:aCompiler
@@ -188,6 +173,15 @@
     ^ super codeOn:aStream inBlock:b for:aCompiler
 ! !
 
+!BinaryNode methodsFor:'evaluating'!
+
+evaluate
+    receiver isSuper ifTrue:[
+	^ super evaluate
+    ].
+    ^ (receiver evaluate) perform:selector with:(argArray at:1) evaluate
+! !
+
 !BinaryNode methodsFor:'printing'!
 
 printOn:aStream indent:i
@@ -225,3 +219,10 @@
 	aStream nextPutAll:') '
     ].
 ! !
+
+!BinaryNode methodsFor:'queries'!
+
+isBinaryMessage
+    ^ true
+! !
+