-USING: concurrency.futures kernel tools.test threads ;\r
-IN: concurrency.futures.tests\r
-\r
-[ 50 ] [\r
- [ 50 ] future ?future\r
-] unit-test\r
-\r
-[\r
- [ "this should propogate" throw ] future ?future \r
-] must-fail\r
-\r
-[ ] [\r
- [ "this should not propogate" throw ] future drop \r
-] unit-test\r
-\r
-! Race condition with futures\r
-[ 3 3 ] [\r
- [ 3 ] future\r
- dup ?future swap ?future\r
-] unit-test\r
-\r
-! Another race\r
-[ 3 ] [\r
- [ 3 yield ] future ?future\r
-] unit-test\r
+USING: concurrency.futures kernel tools.test threads ;
+IN: concurrency.futures.tests
+
+[ 50 ] [
+ [ 50 ] future ?future
+] unit-test
+
+[
+ [ "this should propogate" throw ] future ?future
+] must-fail
+
+[ ] [
+ [ "this should not propogate" throw ] future drop
+] unit-test
+
+! Race condition with futures
+[ 3 3 ] [
+ [ 3 ] future
+ dup ?future swap ?future
+] unit-test
+
+! Another race
+[ 3 ] [
+ [ 3 yield ] future ?future
+] unit-test