equal
deleted
inserted
replaced
102 ! |
102 ! |
103 |
103 |
104 installMethods |
104 installMethods |
105 methodDictionary values do: [ :method | |
105 methodDictionary values do: [ :method | |
106 (compiledClass methodDictionary includesKey: method methodName) ifFalse: [ |
106 (compiledClass methodDictionary includesKey: method methodName) ifFalse: [ |
107 compiledClass compileSilently: method code classified: method category. |
107 compiledClass compileSilently: method source classified: method category. |
108 ] |
108 ] |
109 ] |
109 ] |
|
110 |
|
111 "Modified: / 24-07-2015 / 19:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
110 ! |
112 ! |
111 |
113 |
112 installVariables |
114 installVariables |
113 | instvarString classvarString | |
115 | instvarString classvarString | |
114 instvarString := instvars inject: '' into: [:r :e | r, ' ', e ]. |
116 instvarString := instvars inject: '' into: [:r :e | r, ' ', e ]. |