LazyValue.st
changeset 4572 ba12c6815ecc
parent 4227 839468b3bcbc
child 4740 f86d99ffcfd9
--- 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'!