--- a/Future.st Thu Feb 01 23:42:59 2018 +0100
+++ b/Future.st Thu Feb 01 23:44:21 2018 +0100
@@ -354,7 +354,7 @@
"Any message to a Future will end up here."
semaphore notNil ifTrue:[
- IsDebuggingQuery query ifTrue:[
+ Processor activeProcess isDebuggerProcess ifTrue:[
"enable debugging / inspecting"
^ aMessage sendTo:self usingClass:Object.
].
@@ -363,6 +363,7 @@
^ aMessage sendTo:result
"Modified: / 04-10-2011 / 17:37:18 / cg"
+ "Modified: / 01-02-2018 / 10:17:48 / stefan"
!
perform:aSelector withArguments:argArray
@@ -370,13 +371,15 @@
to the receiver."
semaphore notNil ifTrue:[
- IsDebuggingQuery query ifTrue:[
+ Processor activeProcess isDebuggerProcess ifTrue:[
"enable debugging / inspecting"
^ super perform:aSelector withArguments:argArray.
].
self value.
].
^ result perform:aSelector withArguments:argArray.
+
+ "Modified (format): / 01-02-2018 / 10:17:44 / stefan"
!
value