changeset 650 | 4c6ed0a28d18 |
parent 427 | a7f5e6de19d2 |
643:65da3a4195b6 | 650:4c6ed0a28d18 |
---|---|
34 |
34 |
35 !PPPredicateObjectParser class methodsFor:'cache'! |
35 !PPPredicateObjectParser class methodsFor:'cache'! |
36 |
36 |
37 cacheAt: aSymbol ifAbsentPut: aBlock |
37 cacheAt: aSymbol ifAbsentPut: aBlock |
38 |
38 |
39 cache ifNil: [ ^aBlock value ]. |
39 cache isNil ifTrue: [ ^aBlock value ]. |
40 ^(cache |
40 ^(cache |
41 at: aSymbol |
41 at: aSymbol |
42 ifAbsentPut: aBlock) copy |
42 ifAbsentPut: aBlock) copy |
43 ! |
43 ! |
44 |
44 |