11 lines
198 B
Smalltalk
11 lines
198 B
Smalltalk
|
Extension { #name : 'PPChoiceParser' }
|
||
|
|
|
||
|
|
{ #category : '*petitcompiler' }
|
||
|
|
PPChoiceParser >> asCompilerNode [
|
||
|
|
^ PPCChoiceNode new
|
||
|
|
name: self name;
|
||
|
|
children: parsers;
|
||
|
|
parser: self;
|
||
|
|
yourself
|
||
|
|
]
|