17 lines
358 B
Smalltalk
17 lines
358 B
Smalltalk
|
Extension { #name : 'PPWrappingParser' }
|
||
|
|
|
||
|
|
{ #category : '*petitcompiler' }
|
||
|
|
PPWrappingParser >> asCompilerNode [
|
||
|
|
^ PPCUnknownNode new
|
||
|
|
parser: self;
|
||
|
|
name: self name;
|
||
|
|
contextFree: false;
|
||
|
|
changesContext: (self propertyAt: #changesContext ifAbsent: true);
|
||
|
|
yourself
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : '*petitcompiler' }
|
||
|
|
PPWrappingParser >> isContextFreePrim [
|
||
|
|
^ false
|
||
|
|
]
|