hg/stx-libbasic2: comparison Future.st

equal deleted inserted replaced

-:f53aac0fa76c
+:62adbb76ba99
+"{ Encoding: utf8 }"
 "
 This is a Manchester Goodie protected by copyright.
 These conditions are imposed on the whole Goodie, and on any significant
 part of it which is separately transmitted or stored:
 	* You must ensure that every copy includes this notice, and that
 ensure that any messages sent to me before execution
 of the block has terminated are suspended until it has terminated."
 semaphore := Semaphore name:'Future'.
 [
-[result := aBlock value] ensure:[semaphore signal. semaphore := nil.]
+result := [aBlock value] ensure:[semaphore signal. semaphore := nil.]
 ] fork
 "Modified: / 09-08-2017 / 11:54:19 / cg"
+"Modified: / 12-02-2019 / 20:26:39 / Stefan Vogel"
 !
 block:aBlock value:aValue
 "Execute aBlock in parallel with whatever called me, but
 ensure that any messages sent to me before execution
 of the block has terminated are suspended until it has terminated."
 semaphore := Semaphore name:'Future'.
 [
-[
+result := [aBlock value:aValue] ensure:[semaphore signal. semaphore := nil.]
-result := aBlock value:aValue
-] ensure:[semaphore signal. semaphore := nil.]
 ] fork
 "Modified: / 09-08-2017 / 11:54:23 / cg"
+"Modified: / 12-02-2019 / 20:27:03 / Stefan Vogel"
 !
 block:aBlock value:value1 value:value2
 "Execute aBlock in parallel with whatever called me, but
 ensure that any messages sent to me before execution
 of the block has terminated are suspended until it has terminated."
 semaphore := Semaphore name:'Future'.
 [
-[
+result := [
-result := aBlock value:value1 value:value2
+aBlock value:value1 value:value2
 ] ensure:[semaphore signal. semaphore := nil.]
 ] fork
 "Modified: / 09-08-2017 / 11:54:27 / cg"
+"Modified: / 12-02-2019 / 20:27:20 / Stefan Vogel"
 !
 block:aBlock value:value1 value:value2 value:value3
 "Execute aBlock in parallel with whatever called me, but
 ensure that any messages sent to me before execution
 of the block has terminated are suspended until it has terminated."
 semaphore := Semaphore name:'Future'.
 [
-[
+result := [
-result := aBlock value:value1 value:value2 value:value3
+aBlock value:value1 value:value2 value:value3
 ] ensure:[semaphore signal. semaphore := nil.]
 ] fork
 "Modified: / 09-08-2017 / 11:54:31 / cg"
+"Modified: / 12-02-2019 / 20:27:31 / Stefan Vogel"
 !
 block:aBlock valueWithArguments:anArray
 "Execute aBlock in parallel with whatever called me, but
 ensure that any messages sent to me before execution
 of the block has terminated are suspended until it has terminated."
 semaphore := Semaphore name:'Future'.
 [
-[
+result := [
-result := aBlock valueWithArguments:anArray
+aBlock valueWithArguments:anArray
 ] ensure:[semaphore signal. semaphore := nil.]
 ] fork
 "Modified: / 09-08-2017 / 11:54:34 / cg"
+"Modified: / 12-02-2019 / 20:27:40 / Stefan Vogel"
 !
 priority:prio block: aBlock
 "Execute aBlock in parallel with whatever called me, but
 ensure that any messages sent to me before execution
 of the block has terminated are suspended until it has terminated."
 semaphore := Semaphore name:'Future'.
 [
-[result := aBlock value] ensure:[semaphore signal. semaphore := nil.]
+result := [aBlock value] ensure:[semaphore signal. semaphore := nil.]
 ] forkAt:prio
 "Created: / 04-10-2011 / 14:53:21 / cg"
 "Modified: / 09-08-2017 / 11:54:38 / cg"
+"Modified: / 12-02-2019 / 20:27:52 / Stefan Vogel"
 !
 priority:prio block: aBlock value: aValue
 "Execute aBlock in parallel with whatever called me, but
 ensure that any messages sent to me before execution
 of the block has terminated are suspended until it has terminated."
 semaphore := Semaphore name:'Future'.
 [
-[
+result := [
-result := aBlock value:aValue
+aBlock value:aValue
 ] ensure:[semaphore signal. semaphore := nil.]
 ] forkAt:prio
 "Created: / 04-10-2011 / 14:53:35 / cg"
 "Modified: / 09-08-2017 / 11:54:41 / cg"
+"Modified: / 12-02-2019 / 20:28:02 / Stefan Vogel"
 !
 priority:prio block:aBlock value:value1 value:value2
 "Execute aBlock in parallel with whatever called me, but
 ensure that any messages sent to me before execution
 of the block has terminated are suspended until it has terminated."
 semaphore := Semaphore name:'Future'.
 [
-[
+result := [
-result := aBlock value:value1 value:value2
+aBlock value:value1 value:value2
 ] ensure:[semaphore signal. semaphore := nil.]
 ] forkAt:prio
 "Created: / 04-10-2011 / 14:54:03 / cg"
 "Modified: / 09-08-2017 / 11:54:44 / cg"
+"Modified: / 12-02-2019 / 20:28:10 / Stefan Vogel"
 !
 priority:prio block:aBlock value:value1 value:value2 value:value3
 "Execute aBlock in parallel with whatever called me, but
 ensure that any messages sent to me before execution
 of the block has terminated are suspended until it has terminated."
 semaphore := Semaphore name:'Future'.
 [
-[
+result := [
-result := aBlock value:value1 value:value2 value:value3
+aBlock value:value1 value:value2 value:value3
 ] ensure:[semaphore signal. semaphore := nil.]
 ] forkAt:prio
 "Created: / 04-10-2011 / 14:54:51 / cg"
 "Modified: / 09-08-2017 / 11:54:47 / cg"
+"Modified: / 12-02-2019 / 20:28:21 / Stefan Vogel"
 !
 priority:prio block:aBlock valueWithArguments:anArray
 "Execute aBlock in parallel with whatever called me, but
 ensure that any messages sent to me before execution
 of the block has terminated are suspended until it has terminated."
 semaphore := Semaphore name:'Future'.
 [
-[
+result := [
-result := aBlock valueWithArguments:anArray
+aBlock valueWithArguments:anArray
 ] ensure:[semaphore signal. semaphore := nil.]
 ] forkAt:prio
 "Created: / 04-10-2011 / 14:55:14 / cg"
 "Modified: / 09-08-2017 / 11:54:50 / cg"
+"Modified: / 12-02-2019 / 20:28:30 / Stefan Vogel"
 ! !
 !Future methodsFor:'printing'!
 displayOn:aGCOrStream

changeset 4814	62adbb76ba99
parent 4574	8e32161e5056
child 5031	0cfe45b14c1a