Portability: fixed RBLiteralValueNode>>isLiteralNumber to work under both - Pharo and Smalltalk/X
"{ Package: 'stx:goodies/petitparser/compiler' }"
"{ NameSpace: Smalltalk }"
Object subclass:#PPCCompilerTokenErrorStrategy
instanceVariableNames:'compiler'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Compiler-Codegen-Straregies'
!
!PPCCompilerTokenErrorStrategy class methodsFor:'as yet unclassified'!
on: aPPCCompiler
^ self new
compiler: aPPCCompiler;
yourself
! !
!PPCCompilerTokenErrorStrategy methodsFor:'as yet unclassified'!
codeClearError
compiler add: 'self clearError.'
!
codeError
compiler add: 'error := true.'
!
codeError: message
compiler add: 'error := true.'
!
compiler: aPPCCompiler
compiler := aPPCCompiler
! !