update existing code for [let change

[factor.git] / basis / concurrency / exchangers / exchangers-tests.factor

diff --git a/basis/concurrency/exchangers/exchangers-tests.factor b/basis/concurrency/exchangers/exchangers-tests.factor
index a8214cf42f2301a5712a034df555f20053c3bbf3..c411aaea92254edf4974a1fcbf5f18e3f60e052a 100644 (file)
--- a/basis/concurrency/exchangers/exchangers-tests.factor
+++ b/basis/concurrency/exchangers/exchangers-tests.factor
@@ -5,27 +5,25 @@ FROM: sequences => 3append ;
 IN: concurrency.exchangers.tests\r
 \r
 :: exchanger-test ( -- string )\r
-    [let |\r
-        ex [ <exchanger> ]\r
-        c [ 2 <count-down> ]\r
-        v1! [ f ]\r
-        v2! [ f ]\r
-        pr [ <promise> ] |\r
+    <exchanger> :> ex\r
+    2 <count-down> :> c\r
+    f :> v1!\r
+    f :> v2!\r
+    <promise> :> pr\r
 \r
-        [\r
-            c await\r
-            v1 ", " v2 3append pr fulfill\r
-        ] "Awaiter" spawn drop\r
+    [\r
+        c await\r
+        v1 ", " v2 3append pr fulfill\r
+    ] "Awaiter" spawn drop\r
 \r
-        [\r
-            "Goodbye world" ex exchange v1! c count-down\r
-        ] "Exchanger 1" spawn drop\r
+    [\r
+        "Goodbye world" ex exchange v1! c count-down\r
+    ] "Exchanger 1" spawn drop\r
 \r
-        [\r
-            "Hello world" ex exchange v2! c count-down\r
-        ] "Exchanger 2" spawn drop\r
+    [\r
+        "Hello world" ex exchange v2! c count-down\r
+    ] "Exchanger 2" spawn drop\r
 \r
-        pr ?promise\r
-    ] ;\r
+    pr ?promise ;\r
 \r
 [ "Hello world, Goodbye world" ] [ exchanger-test ] unit-test\r