--- a/LazyValue.st Thu Jan 25 20:43:24 2018 +0100
+++ b/LazyValue.st Thu Feb 01 23:42:46 2018 +0100
@@ -463,13 +463,15 @@
doesNotUnderstand:aMessage
block notNil ifTrue:[
- IsDebuggingQuery query ifTrue:[
+ Processor activeProcess isDebuggerProcess ifTrue:[
"enable debugging / inspecting without evaluating"
^ aMessage sendTo:self usingClass:Object.
].
self _evaluate_.
].
^ aMessage sendTo:result
+
+ "Modified: / 01-02-2018 / 10:17:12 / stefan"
!
perform:aSelector withArguments:argArray
@@ -477,13 +479,15 @@
to the receiver."
block notNil ifTrue:[
- IsDebuggingQuery query ifTrue:[
+ Processor activeProcess isDebuggerProcess ifTrue:[
"enable debugging / inspecting"
^ super perform:aSelector withArguments:argArray.
].
self _evaluate_.
].
^ result perform:aSelector withArguments:argArray.
+
+ "Modified: / 01-02-2018 / 10:17:18 / stefan"
! !
!LazyValue methodsFor:'testing'!