Concurrency fix

2008-02-09 14:14:37 -06:00 · 2008-02-09 14:14:37 -06:00 · a21781e380
parent 25c64c8ac7
commit a21781e380
1 changed files with 1 additions and 2 deletions
--- a/extra/concurrency/concurrency.factor
+++ b/extra/concurrency/concurrency.factor
@ -274,7 +274,6 @@ TUPLE: future value processes ;
 : future ( quot -- future )
    #! Spawn a process to call the quotation and immediately return.
    \ future construct-empty [
-    [
        [
            >r [ t 2array ] compose [ f 2array ] recover r>
            notify-future