12 lines
268 B
Smalltalk
12 lines
268 B
Smalltalk
|
Extension { #name : 'PPListParser' }
|
||
|
|
|
||
|
|
{ #category : '*petitislands' }
|
||
|
|
PPListParser >> acceptsEpsilon [
|
||
|
|
^ self acceptsEpsilonOpenSet: IdentitySet new.
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : '*petitislands' }
|
||
|
|
PPListParser >> isIslandBorder [
|
||
|
|
^ self isIslandBorderOpenSet: IdentitySet new
|
||
|
|
]
|