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

     2 

     3 PPCDelegateNode subclass:#PPCAbstractActionNode

     4 	instanceVariableNames:'block'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitCompiler-Nodes'

     8 !

     9 

    10 PPCAbstractActionNode comment:''

    11 !

    12 

    13 !PPCAbstractActionNode methodsFor:'accessing'!

    14 

    15 block

    16 	

    17 	^ block

    18 !

    19 

    20 block: anObject

    21 	

    22 	block := anObject

    23 ! !

    24 

    25 !PPCAbstractActionNode methodsFor:'as yet unclassified'!

    26 

    27 prefix

    28 	^ #action

    29 ! !

    30