1 "{ Package: 'stx:goodies/petitparser/compiler' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCPassVisitor subclass:#PPCCheckingVisitor

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Visitors'

    10 !

    11 

    12 !PPCCheckingVisitor methodsFor:'visiting'!

    13 

    14 visitNode: node

    15     | message |

    16 

    17     super visitNode: node.

    18     message := node check.

    19     message notNil ifTrue:[ self error: message ].

    20     ^node

    21 

    22     "Created: / 04-09-2015 / 10:23:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    23 ! !

    24