author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 24 Aug 2015 17:38:44 +0100 | |
changeset 527 | 9b50ec9a6918 |
parent 515 | b5316ef15274 |
permissions | -rw-r--r-- |
"{ Package: 'stx:goodies/petitparser/compiler' }" "{ NameSpace: Smalltalk }" PPCSequenceNode subclass:#PPCRecognizingSequenceNode instanceVariableNames:'' classVariableNames:'' poolDictionaries:'' category:'PetitCompiler-Nodes' ! !PPCRecognizingSequenceNode methodsFor:'accessing'! suffix ^ super suffix isNil ifTrue: [ 'fast' ] ifFalse: [ super suffix, '_fast' ] ! ! !PPCRecognizingSequenceNode methodsFor:'visiting'! accept: visitor ^ visitor visitRecognizingSequenceNode: self ! !