--- a/Future.st Tue Oct 04 17:30:52 2011 +0200
+++ b/Future.st Tue Oct 04 17:41:15 2011 +0200
@@ -306,12 +306,24 @@
doesNotUnderstand:aMessage
"Any message to a Future will end up here."
-MiniDebugger enter.
- semaphore waitUncounted. "Wait for evaluation to complete"
- "(if not already completed)"
+
+ result isNil ifTrue:[
+ semaphore waitUncounted. "Wait for evaluation to complete"
+ "(if not already completed)"
+ ].
^ result perform:aMessage selector withArguments:aMessage arguments
- "Modified: / 04-10-2011 / 17:24:57 / cg"
+ "Modified: / 04-10-2011 / 17:37:18 / cg"
+!
+
+value
+ result isNil ifTrue:[
+ semaphore waitUncounted. "Wait for evaluation to complete"
+ "(if not already completed)"
+ ].
+ ^ result
+
+ "Created: / 04-10-2011 / 17:36:06 / cg"
! !
!Future methodsFor:'testing'!
@@ -329,9 +341,9 @@
!Future class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Future.st,v 1.14 2011-10-04 15:30:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Future.st,v 1.15 2011-10-04 15:41:15 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/Future.st,v 1.14 2011-10-04 15:30:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Future.st,v 1.15 2011-10-04 15:41:15 cg Exp $'
! !