CustomMultiSetterMethodsCodeGenerator.st
changeset 687 2cd68852d81e
parent 656 a95284467938
child 688 6bd18ba5e56c
--- a/CustomMultiSetterMethodsCodeGenerator.st	Tue Oct 07 23:05:10 2014 +0200
+++ b/CustomMultiSetterMethodsCodeGenerator.st	Wed Oct 08 19:50:10 2014 +0200
@@ -58,7 +58,7 @@
 createMultiSetterMethodForVariables: aVariableNames inClass: aClass
     "Creates multi-setter access method for given variable names and class"
 
-    | setterSelector comment assignVariablesCode method |
+    | setterSelector comment assignVariablesCode |
 
     setterSelector := ''.
     comment := ''.
@@ -77,8 +77,7 @@
         assignVariablesCode := assignVariablesCode, variableName asString, ' := ', argumentName, '. '.
     ].
 
-    method := codeBuilder createMethod.
-    method
+    codeBuilder createMethod
         class: aClass;
         protocol: 'accessing';
         source: '`@setterSelector
@@ -88,9 +87,11 @@
         ';
         replace: '`@setterSelector' with: setterSelector asSymbol;
         replace: '`"comment' with: comment;
-        replace: '`@assignVariablesCode' with: assignVariablesCode.
+        replace: '`@assignVariablesCode' with: assignVariablesCode;
+        compile.
 
     "Created: / 13-07-2014 / 20:45:41 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+    "Modified: / 08-10-2014 / 19:00:20 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 
 !CustomMultiSetterMethodsCodeGenerator methodsFor:'executing'!