Fix another bug with futures

2008-02-09 18:12:07 -06:00 · 2008-02-09 18:12:07 -06:00 · ef63333980
parent 0e0a1fb244
commit ef63333980
2 changed files with 8 additions and 3 deletions
--- a/extra/concurrency/concurrency-tests.factor
+++ b/extra/concurrency/concurrency-tests.factor
@ -134,3 +134,8 @@ SYMBOL: value
    [ 3 ] future
    dup ?future swap ?future
 ] unit-test
+
+! Another race
+[ 3 ] [
+    [ 3 yield ] future ?future
+] unit-test
--- a/extra/concurrency/concurrency.factor
+++ b/extra/concurrency/concurrency.factor
@ -273,7 +273,7 @@ TUPLE: future value processes ;

 : future ( quot -- future )
    #! Spawn a process to call the quotation and immediately return.
-    \ future construct-empty [
+    f V{ } clone \ future construct-boa [
        [
            >r [ t 2array ] compose [ f 2array ] recover r>
            notify-future