13 lines
319 B
Smalltalk
13 lines
319 B
Smalltalk
Extension { #name : 'PPMemoizingSea' }
|
|
|
|
{ #category : '*petitcompiler' }
|
|
PPMemoizingSea >> asLightweightMemoizingSea [
|
|
^ PPLwMemoizingSea new
|
|
island: island;
|
|
setBeforeWaterParser: defaultBeforeWaterParser;
|
|
setAfterWaterParser: defaultAfterWaterParser;
|
|
water: water;
|
|
properties: properties copy;
|
|
yourself
|
|
]
|