equal
deleted
inserted
replaced
9 category:'PetitCompiler-Visitors' |
9 category:'PetitCompiler-Visitors' |
10 ! |
10 ! |
11 |
11 |
12 !PPCCheckingVisitor methodsFor:'visiting'! |
12 !PPCCheckingVisitor methodsFor:'visiting'! |
13 |
13 |
14 visitNode: node |
14 beforeAccept: node |
15 | message | |
15 | message | |
16 |
16 |
17 super visitNode: node. |
|
18 message := node check. |
17 message := node check. |
19 message notNil ifTrue:[ self error: message ]. |
18 message notNil ifTrue:[ self error: message ]. |
20 ^node |
19 ^node |
21 |
20 |
22 "Created: / 04-09-2015 / 10:23:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
21 "Created: / 07-09-2015 / 13:05:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
23 ! ! |
22 ! ! |
24 |
23 |