--- a/compiler/PPCContextMemento.st Mon Nov 24 00:09:23 2014 +0000
+++ b/compiler/PPCContextMemento.st Wed Apr 15 11:28:09 2015 +0100
@@ -1,5 +1,7 @@
"{ Package: 'stx:goodies/petitparser/compiler' }"
+"{ NameSpace: Smalltalk }"
+
Object subclass:#PPCContextMemento
instanceVariableNames:'position properties'
classVariableNames:''
@@ -43,7 +45,7 @@
propertyAt: aKey ifAbsent: aBlock
"Answer the property value associated with aKey or, if aKey isn't found, answer the result of evaluating aBlock."
-
+
properties isNil
ifTrue: [ ^ aBlock value ]
ifFalse: [
@@ -53,7 +55,7 @@
^ aBlock value
]
- "Created: / 26-10-2014 / 01:23:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 15-04-2015 / 11:19:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
propertyAt: aKey ifAbsentPut: aBlock