core, basis, extra: Remove DOS line endings from files.

[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 8402a5663164a5215f39deb5117b5b2b36962517..4ea2105b35ecc987e6ece6e332ddbc9402d8b8b4 100644 (file)
--- a/basis/concurrency/flags/flags-tests.factor
+++ b/basis/concurrency/flags/flags-tests.factor
@@ -1,48 +1,48 @@
-USING: tools.test concurrency.flags concurrency.combinators\r
-kernel threads locals accessors calendar ;\r
-IN: concurrency.flags.tests\r
-\r
-:: flag-test-1 ( -- val )\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
-    <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
-    <flag> :> f\r
-    f raise-flag\r
-    f value>> ;\r
-\r
-[ t ] [ flag-test-3 ] unit-test\r
-\r
-:: flag-test-4 ( -- val )\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
-    <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
-[ ] [\r
-    { 1 2 } <flag>\r
-    [ [ 1 seconds sleep raise-flag ] curry "Flag test" spawn drop ]\r
-    [ [ wait-for-flag drop ] curry parallel-each ] bi\r
-] unit-test\r
+USING: tools.test concurrency.flags concurrency.combinators
+kernel threads locals accessors calendar ;
+IN: concurrency.flags.tests
+
+:: flag-test-1 ( -- val )
+    <flag> :> f
+    [ f raise-flag ] "Flag test" spawn drop
+    f lower-flag
+    f value>> ;
+
+[ f ] [ flag-test-1 ] unit-test
+
+:: flag-test-2 ( -- ? )
+    <flag> :> f
+    [ 1 seconds sleep f raise-flag ] "Flag test" spawn drop
+    f lower-flag
+    f value>> ;
+
+[ f ] [ flag-test-2 ] unit-test
+
+:: flag-test-3 ( -- val )
+    <flag> :> f
+    f raise-flag
+    f value>> ;
+
+[ t ] [ flag-test-3 ] unit-test
+
+:: flag-test-4 ( -- val )
+    <flag> :> f
+    [ f raise-flag ] "Flag test" spawn drop
+    f wait-for-flag
+    f value>> ;
+
+[ t ] [ flag-test-4 ] unit-test
+
+:: flag-test-5 ( -- val )
+    <flag> :> f
+    [ 1 seconds sleep f raise-flag ] "Flag test" spawn drop
+    f wait-for-flag
+    f value>> ;
+
+[ t ] [ flag-test-5 ] unit-test
+
+[ ] [
+    { 1 2 } <flag>
+    [ [ 1 seconds sleep raise-flag ] curry "Flag test" spawn drop ]
+    [ [ wait-for-flag drop ] curry parallel-each ] bi
+] unit-test