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

"{ NameSpace: Smalltalk }"

PEGFsaPredicateTransition subclass:#PEGFsaParserTransition
	instanceVariableNames:'parser'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-FSA'
!

!PEGFsaParserTransition methodsFor:'accessing'!

parser
    ^ parser
!

parser: anObject
    self halt: 'delete me!!'.
    parser := anObject
! !

!PEGFsaParserTransition methodsFor:'as yet unclassified'!

acceptsCodePoint: codePoint
    self halt: 'should not be sent...'.
    ^ true
!

isParser
    ^ true
! !