equal
deleted
inserted
replaced
36 |
36 |
37 "Created: / 25-08-2015 / 22:30:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
37 "Created: / 25-08-2015 / 22:30:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
38 "Modified: / 02-09-2015 / 07:20:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
38 "Modified: / 02-09-2015 / 07:20:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
39 ! |
39 ! |
40 |
40 |
41 acceptClassDefinition: aTClassDefinition |
|
42 aTClassDefinition binding: (TClassBinding name: aTClassDefinition name). |
|
43 super acceptClassDefinition: aTClassDefinition |
|
44 |
|
45 "Created: / 31-08-2015 / 11:46:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
46 ! |
|
47 |
|
48 acceptLiteralNode: aRBLiteralNode |
41 acceptLiteralNode: aRBLiteralNode |
|
42 super acceptLiteralNode: aRBLiteralNode. |
49 aRBLiteralNode binding: (TConstantBinding value: aRBLiteralNode value). |
43 aRBLiteralNode binding: (TConstantBinding value: aRBLiteralNode value). |
50 super acceptLiteralNode: aRBLiteralNode |
|
51 |
44 |
52 "Created: / 25-08-2015 / 23:17:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
45 "Created: / 25-08-2015 / 23:17:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
53 ! |
46 "Modified: / 02-09-2015 / 10:34:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
54 |
|
55 acceptMetaclassDefinition: aTClassDefinition |
|
56 aTClassDefinition binding: (TClassBinding name: aTClassDefinition name). |
|
57 super acceptMetaclassDefinition: aTClassDefinition |
|
58 |
|
59 "Created: / 31-08-2015 / 11:47:07 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
60 ! |
47 ! |
61 |
48 |
62 acceptMethodNode: aMethodNode |
49 acceptMethodNode: aMethodNode |
63 | binding scope bindingSelf | |
50 | binding scope bindingSelf | |
64 |
51 |