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

"{ NameSpace: Smalltalk }"

Object subclass:#PPCCompiledMethod
	instanceVariableNames:'code id'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Core'
!

!PPCCompiledMethod methodsFor:'as yet unclassified'!

call
	^ 'self ', self methodName, '.'.
!

id: value
	id := value
!

methodName
	^ id
! !