--- a/Block.st Wed Jan 26 14:56:16 2005 +0100
+++ b/Block.st Wed Jan 26 15:02:39 2005 +0100
@@ -470,9 +470,9 @@
!Block methodsFor:'Compatibility-Dolphin'!
deferredValue
- "doplphin's alias for promise"
+ "doplphin's alias for futureValue"
- ^ self promise
+ ^ self futureValue
! !
!Block methodsFor:'Compatibility-Squeak'!
@@ -1681,78 +1681,92 @@
!Block methodsFor:'parallel evaluation'!
futureValue
- "Fork a synchronised evaluation of myself.
- Starts the evaluation in parallel now, but synchronizes
- any access to wait until the result is computed."
+ "Fork a synchronised evaluation of myself.
+ Starts the evaluation in parallel now, but synchronizes
+ any access to wait until the result is computed."
- ^Future new block: self
+ ^ Future new block:self
!
-futureValue: aValue
- "Fork a synchronised evaluation of myself.
- Starts the evaluation in parallel now, but synchronizes
- any access to wait until the result is computed."
-
- ^Future new block: self value: aValue
+futureValue:aValue
+ "Fork a synchronised evaluation of myself.
+ Starts the evaluation in parallel now, but synchronizes
+ any access to wait until the result is computed."
+
+ ^ Future new block:self value:aValue
!
-futureValue: aValue value: anotherValue
- "Fork a synchronised evaluation of myself.
- Starts the evaluation in parallel now, but synchronizes
- any access to wait until the result is computed."
-
- ^Future new block: self value: aValue value: anotherValue
+futureValue:aValue value:anotherValue
+ "Fork a synchronised evaluation of myself.
+ Starts the evaluation in parallel now, but synchronizes
+ any access to wait until the result is computed."
+
+ ^ Future new
+ block:self
+ value:aValue
+ value:anotherValue
!
-futureValue: aValue value: anotherValue value: bValue
- "Fork a synchronised evaluation of myself.
- Starts the evaluation in parallel now, but synchronizes
- any access to wait until the result is computed."
-
- ^Future new block: self value: aValue value: anotherValue value: bValue
+futureValue:aValue value:anotherValue value:bValue
+ "Fork a synchronised evaluation of myself.
+ Starts the evaluation in parallel now, but synchronizes
+ any access to wait until the result is computed."
+
+ ^ Future new
+ block:self
+ value:aValue
+ value:anotherValue
+ value:bValue
!
-futureValueWithArguments: anArray
- "Fork a synchronised evaluation of myself.
- Starts the evaluation in parallel now, but synchronizes
- any access to wait until the result is computed."
-
- ^Future new block: self valueWithArguments: anArray
+futureValueWithArguments:anArray
+ "Fork a synchronised evaluation of myself.
+ Starts the evaluation in parallel now, but synchronizes
+ any access to wait until the result is computed."
+
+ ^ Future new block:self valueWithArguments:anArray
!
lazyValue
- "Fork a synchronised evaluation of myself. Only starts
- the evaluation when the result is requested."
-
- ^Lazy new block: self
+ "Fork a synchronised evaluation of myself. Only starts
+ the evaluation when the result is requested."
+
+ ^ Lazy new block:self
!
-lazyValue: aValue
- "Fork a synchronised evaluation of myself. Only starts
- the evaluation when the result is requested."
-
- ^Lazy new block: self value: aValue
+lazyValue:aValue
+ "Fork a synchronised evaluation of myself. Only starts
+ the evaluation when the result is requested."
+
+ ^ Lazy new block:self value:aValue
!
-lazyValue: aValue value: anotherValue
- "Fork a synchronised evaluation of myself. Only starts
- the evaluation when the result is requested."
-
- ^Lazy new block: self value: aValue value: anotherValue
+lazyValue:aValue value:anotherValue
+ "Fork a synchronised evaluation of myself. Only starts
+ the evaluation when the result is requested."
+
+ ^ Lazy new
+ block:self
+ value:aValue
+ value:anotherValue
!
-lazyValue: aValue value: anotherValue value: bValue
- "Fork a synchronised evaluation of myself. Only starts
- the evaluation when the result is requested."
-
- ^Lazy new block: self value: aValue value: anotherValue value: bValue
+lazyValue:aValue value:anotherValue value:bValue
+ "Fork a synchronised evaluation of myself. Only starts
+ the evaluation when the result is requested."
+
+ ^ Lazy new
+ block:self
+ value:aValue
+ value:anotherValue
+ value:bValue
!
-lazyValueWithArguments: anArray
- "Fork a synchronised evaluation of myself. Only starts
- the evaluation when the result is requested."
-
- ^Lazy new block: self valueWithArguments: anArray
+lazyValueWithArguments:anArray
+ "Fork a synchronised evaluation of myself. Only starts
+ the evaluation when the result is requested."
+
+ ^ Lazy new block:self valueWithArguments:anArray
! !
!Block methodsFor:'printing & storing'!
@@ -2164,7 +2178,7 @@
!Block class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.142 2005-01-20 12:27:37 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.143 2005-01-26 14:02:39 stefan Exp $'
! !
Block initialize!