20 lines
394 B
Smalltalk
20 lines
394 B
Smalltalk
Extension { #name : 'PPPredicateObjectParser' }
|
|
|
|
{ #category : '*petitcompiler' }
|
|
PPPredicateObjectParser >> asCompilerNode [
|
|
^ PPCPredicateNode new
|
|
name: self name;
|
|
predicate: predicate;
|
|
yourself
|
|
]
|
|
|
|
{ #category : '*petitcompiler' }
|
|
PPPredicateObjectParser >> firstCharSet [
|
|
^ predicate
|
|
]
|
|
|
|
{ #category : '*petitcompiler' }
|
|
PPPredicateObjectParser >> firstCharSetCached [
|
|
^ predicate
|
|
]
|