19 lines
420 B
Smalltalk
19 lines
420 B
Smalltalk
|
Extension { #name : 'PPSea' }
|
||
|
|
|
||
|
|
{ #category : '*petitcompiler' }
|
||
|
|
PPSea >> asCompilerNode [
|
||
|
|
^ PPCSeaNode new
|
||
|
|
island: island;
|
||
|
|
water: water;
|
||
|
|
parser: self copy;
|
||
|
|
properties: properties;
|
||
|
|
yourself
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : '*petitcompiler' }
|
||
|
|
PPSea >> map: aThreeArgBlock [
|
||
|
|
^ aThreeArgBlock numArgs = 3
|
||
|
|
ifTrue: [ PPMappedActionParser on: self block: aThreeArgBlock ]
|
||
|
|
ifFalse: [ self error: 'three arguments expected.' ]
|
||
|
|
]
|