16 lines
372 B
Smalltalk
16 lines
372 B
Smalltalk
|
Extension { #name : 'PPFlattenParser' }
|
||
|
|
||
|
{ #category : '*petitcompiler' }
|
||
|
PPFlattenParser >> changesContext [
|
||
|
^ self propertyAt: #changesContext ifAbsentPut: [
|
||
|
parser changesContext
|
||
|
]
|
||
|
]
|
||
|
|
||
|
{ #category : '*petitcompiler' }
|
||
|
PPFlattenParser >> changesContextOpenSet: ctxEnv [
|
||
|
^ self propertyAt: #changesContext ifAbsentPut: [
|
||
|
parser changesContextOpenSet: ctxEnv
|
||
|
]
|
||
|
]
|