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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Object subclass:#PPCCompiledMethod

     6 	instanceVariableNames:'id'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Core'

    10 !

    11 

    12 

    13 !PPCCompiledMethod methodsFor:'as yet unclassified'!

    14 

    15 call

    16     ^ 'self ', self methodName, '.'.

    17 !

    18 

    19 id: value

    20     id := value

    21 !

    22 

    23 methodName

    24     ^ id

    25 ! !

    26 

    27 !PPCCompiledMethod class methodsFor:'documentation'!

    28 

    29 version_MC

    30     ^ 'PetitCompiler-JanVrany.stx.85 147209f0-e9c3-11e4-944c-606720e43e2c 2015-04-23T15:14:39+01 JanVrany'

    31 ! !

    32