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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCLRPNode subclass:#PPCLRPContainedElement

     6 	instanceVariableNames:'container'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Extras-Tests-LRP'

    10 !

    11 

    12 !PPCLRPContainedElement methodsFor:'accessing'!

    13 

    14 container

    15     ^ container

    16 !

    17 

    18 container: anObject

    19     container := anObject

    20 ! !

    21