equal
deleted
inserted
replaced
115 codeStream nextPutAll: aTSimpleTypeNode name |
115 codeStream nextPutAll: aTSimpleTypeNode name |
116 |
116 |
117 "Created: / 21-08-2015 / 22:20:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
117 "Created: / 21-08-2015 / 22:20:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
118 ! |
118 ! |
119 |
119 |
|
120 acceptSpecialFormNode: aTSpecialFormNode |
|
121 self acceptMessageNode: aTSpecialFormNode |
|
122 |
|
123 "Created: / 14-09-2015 / 12:10:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
124 ! |
|
125 |
120 acceptTypeSpecNode: aTTypeSpecNode |
126 acceptTypeSpecNode: aTTypeSpecNode |
121 aTTypeSpecNode type notNil ifTrue:[ |
127 aTTypeSpecNode type notNil ifTrue:[ |
122 codeStream nextPut:$<; space. |
128 codeStream nextPut:$<; space. |
123 self visitNode: aTTypeSpecNode type. |
129 self visitNode: aTTypeSpecNode type. |
124 codeStream space; nextPut:$>. |
130 codeStream space; nextPut:$>. |