update existing code for [let change

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

diff --git a/basis/concurrency/flags/flags-tests.factor b/basis/concurrency/flags/flags-tests.factor
index 4fc00b71dd74df1c5c604b7d0703bc6c38b384a1..8402a5663164a5215f39deb5117b5b2b36962517 100644 (file)
--- a/basis/concurrency/flags/flags-tests.factor
+++ b/basis/concurrency/flags/flags-tests.factor
@@ -3,46 +3,41 @@ kernel threads locals accessors calendar ;
 IN: concurrency.flags.tests\r
 \r
 :: flag-test-1 ( -- val )\r
-    [let | f [ <flag> ] |\r
-        [ f raise-flag ] "Flag test" spawn drop\r
-        f lower-flag\r
-        f value>>\r
-    ] ;\r
+    <flag> :> f\r
+    [ f raise-flag ] "Flag test" spawn drop\r
+    f lower-flag\r
+    f value>> ;\r
 \r
 [ f ] [ flag-test-1 ] unit-test\r
 \r
 :: flag-test-2 ( -- ? )\r
-    [let | f [ <flag> ] |\r
-        [ 1 seconds sleep f raise-flag ] "Flag test" spawn drop\r
-        f lower-flag\r
-        f value>>\r
-    ] ;\r
+    <flag> :> f\r
+    [ 1 seconds sleep f raise-flag ] "Flag test" spawn drop\r
+    f lower-flag\r
+    f value>> ;\r
 \r
 [ f ] [ flag-test-2 ] unit-test\r
 \r
 :: flag-test-3 ( -- val )\r
-    [let | f [ <flag> ] |\r
-        f raise-flag\r
-        f value>>\r
-    ] ;\r
+    <flag> :> f\r
+    f raise-flag\r
+    f value>> ;\r
 \r
 [ t ] [ flag-test-3 ] unit-test\r
 \r
 :: flag-test-4 ( -- val )\r
-    [let | f [ <flag> ] |\r
-        [ f raise-flag ] "Flag test" spawn drop\r
-        f wait-for-flag\r
-        f value>>\r
-    ] ;\r
+    <flag> :> f\r
+    [ f raise-flag ] "Flag test" spawn drop\r
+    f wait-for-flag\r
+    f value>> ;\r
 \r
 [ t ] [ flag-test-4 ] unit-test\r
 \r
 :: flag-test-5 ( -- val )\r
-    [let | f [ <flag> ] |\r
-        [ 1 seconds sleep f raise-flag ] "Flag test" spawn drop\r
-        f wait-for-flag\r
-        f value>>\r
-    ] ;\r
+    <flag> :> f\r
+    [ 1 seconds sleep f raise-flag ] "Flag test" spawn drop\r
+    f wait-for-flag\r
+    f value>> ;\r
 \r
 [ t ] [ flag-test-5 ] unit-test\r
 \r