changeset 650 | 4c6ed0a28d18 |
parent 427 | a7f5e6de19d2 |
--- a/PPPredicateObjectParser.st Wed Jul 24 21:13:30 2019 +0000 +++ b/PPPredicateObjectParser.st Wed Jun 10 21:33:27 2020 +0100 @@ -36,7 +36,7 @@ cacheAt: aSymbol ifAbsentPut: aBlock - cache ifNil: [ ^aBlock value ]. + cache isNil ifTrue: [ ^aBlock value ]. ^(cache at: aSymbol ifAbsentPut: aBlock) copy