-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