Extension { #name : 'PPFailure' }

{ #category : '*petitcompiler' }
PPFailure >> context: aPPContext [
	context := aPPContext
]

{ #category : '*petitcompiler' }
PPFailure >> message: text [
	message := text
]

{ #category : '*petitcompiler' }
PPFailure >> position: anInteger [
	position := anInteger
]