class: MethodNode
authorClaus Gittinger <cg@exept.de>
Mon, 18 Mar 2013 14:38:01 +0100
changeset 3046 20057ca84e3f
parent 3045 8c1c52abd3cf
child 3047 3ca3ad7eb9b7
class: MethodNode changed: #printOn:indent: fix: space after selector
MethodNode.st
--- a/MethodNode.st	Mon Mar 18 14:37:04 2013 +0100
+++ b/MethodNode.st	Mon Mar 18 14:38:01 2013 +0100
@@ -157,7 +157,7 @@
     ] ifFalse:[
         parts := selector partsIfSelector.
         parts with:arguments do:[:part :arg |
-            aStream nextPutAll:part.
+            aStream nextPutAll:part; space.
             aStream nextPutAll:arg name.
             aStream space.
         ]
@@ -179,5 +179,6 @@
 !MethodNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.12 2011-09-12 00:19:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MethodNode.st,v 1.13 2013-03-18 13:38:01 cg Exp $'
 ! !
+