Concurrency fix

diff --git a/extra/concurrency/concurrency.factor b/extra/concurrency/concurrency.factor
index 50abee8418b9c3571cb97f799cc8a991ddea54c5..a8e0bc6eeb046e2b7588b5b08762110db0e1973d 100755 (executable)
--- 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