17 lines
304 B
Smalltalk
17 lines
304 B
Smalltalk
Extension { #name : 'PPFailure' }
|
|
|
|
{ #category : '*petitcompiler' }
|
|
PPFailure >> context: aPPContext [
|
|
context := aPPContext
|
|
]
|
|
|
|
{ #category : '*petitcompiler' }
|
|
PPFailure >> message: text [
|
|
message := text
|
|
]
|
|
|
|
{ #category : '*petitcompiler' }
|
|
PPFailure >> position: anInteger [
|
|
position := anInteger
|
|
]
|