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
|
||
|
|
]
|