Added getter for linkCondition variable, with initialisation in class…

… RFCondition
pharo-project · Jan 29, 2021 · d6b4ba0 · d6b4ba0
1 parent 8acbeea
commit d6b4ba0
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/src/Reflectivity/RFCondition.class.st b/src/Reflectivity/RFCondition.class.st
@@ -32,7 +32,7 @@ RFCondition >> cull: arguments [
 	"in case of my wrapped link expects arguments"
 
 	^ condition
-		and: [ linkCondition perform: linkCondition valueSelector withArguments: {arguments} ]
+		and: [ self linkCondition perform: self linkCondition valueSelector withArguments: {arguments} ]
 ]
 
 { #category : #'enable/disable' }
@@ -50,6 +50,11 @@ RFCondition >> initialize [
 	condition := true
 ]
 
+{ #category : #accessing }
+RFCondition >> linkCondition [
+	^ linkCondition ifNil: [ linkCondition := [ true ] ].
+]
+
 { #category : #accessing }
 RFCondition >> linkCondition: aBlockOrBoolean [
 		linkCondition := aBlockOrBoolean
@@ -63,12 +68,12 @@ RFCondition >> reifications [
 
 { #category : #evaluating }
 RFCondition >> value [
-	^condition and: [ linkCondition value ]
+	^condition and: [ self linkCondition value ]
 ]
 
 { #category : #accessing }
 RFCondition >> valueSelector [
-	^ linkCondition numArgs isZero
+	^ self linkCondition numArgs isZero
 		ifTrue: [ #value ]
 		ifFalse: [ #cull: ]
 ]