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
@ -270,11 +270,10 @@ TUPLE: future value processes ;
    tuck set-future-value
    dup future-processes [ schedule-thread ] each
    f swap set-future-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