From a21781e3807d1c89cba88989cb694e65d81d0ee3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 9 Feb 2008 14:14:37 -0600
Subject: [PATCH] Concurrency fix

---
 extra/concurrency/concurrency.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/concurrency/concurrency.factor b/extra/concurrency/concurrency.factor
index 50abee8418..a8e0bc6eeb 100755
--- 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