--- a/MCStWriter.st Wed Mar 07 17:23:44 2018 +0100
+++ b/MCStWriter.st Wed Mar 07 17:23:53 2018 +0100
@@ -118,17 +118,17 @@
!
writeMetaclassDefinition: definition
- self chunkContents: [:str |
- str nextPutAll: definition className;
- nextPutAll: ' class';
- cr; tab.
- definition hasClassTraitComposition ifTrue: [
- str nextPutAll: 'uses: ';
- nextPutAll: definition classTraitCompositionString;
- cr; tab].
- str nextPutAll: 'instanceVariableNames: ''';
- nextPutAll: definition classInstanceVariablesString;
- nextPut: $']
+ self chunkContents: [:str |
+ str nextPutAll: definition className;
+ nextPutAll: ' class';
+ cr; tab.
+ definition hasClassTraitComposition ifTrue: [
+ str nextPutAll: 'uses: ';
+ nextPutAll: definition classTraitCompositionString;
+ cr; tab].
+ str nextPutAll: 'instanceVariableNames:''';
+ nextPutAll: definition classInstanceVariablesString;
+ nextPut: $']
!
writeMethodInitializer: aMethodDefinition