-USING: tools.test bit-vectors vectors sequences kernel math ;\r
-IN: bit-vectors.tests\r
-\r
-[ 0 ] [ 123 <bit-vector> length ] unit-test\r
-\r
-: do-it ( seq -- )\r
- 1234 swap [ [ even? ] dip push ] curry each-integer ;\r
-\r
-[ t ] [\r
- 3 <bit-vector> dup do-it\r
- 3 <vector> dup do-it sequence=\r
-] unit-test\r
-\r
-[ t ] [ ?V{ } bit-vector? ] unit-test\r
+USING: tools.test bit-vectors vectors sequences kernel math ;
+IN: bit-vectors.tests
+
+[ 0 ] [ 123 <bit-vector> length ] unit-test
+
+: do-it ( seq -- )
+ 1234 swap [ [ even? ] dip push ] curry each-integer ;
+
+[ t ] [
+ 3 <bit-vector> dup do-it
+ 3 <vector> dup do-it sequence=
+] unit-test
+
+[ t ] [ ?V{ } bit-vector? ] unit-test