12 lines
212 B
Smalltalk
12 lines
212 B
Smalltalk
Extension { #name : 'PPOptionalParser' }
|
|
|
|
{ #category : '*petitcompiler' }
|
|
PPOptionalParser >> asCompilerNode [
|
|
^ PPCOptionalNode new
|
|
name: self name;
|
|
child: parser;
|
|
yourself
|
|
|
|
" ^ super asCompilerNode "
|
|
]
|