Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / bit-vectors / bit-vectors-tests.factor

diff --git a/basis/bit-vectors/bit-vectors-tests.factor b/basis/bit-vectors/bit-vectors-tests.factor
index dff9a8db37f2da33682a712da04a1e6961505471..5af44b59f7f30577e24a753a74c4565fe1f03689 100644 (file)
--- a/basis/bit-vectors/bit-vectors-tests.factor
+++ b/basis/bit-vectors/bit-vectors-tests.factor
@@ -1,10 +1,10 @@
-IN: bit-vectors.tests\r
 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\r
-    1234 swap [ >r even? r> push ] curry each ;\r
+: do-it ( seq -- )\r
+    1234 swap [ [ even? ] dip push ] curry each ;\r
 \r
 [ t ] [\r
     3 <bit-vector> dup do-it\r