steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

>r r> in unit-test

db4
Doug Coleman 2008-11-29 13:37:48 -06:00
parent 57e34e9d6c
commit d258a4f70c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/bit-vectors/bit-vectors-tests.factor
View File

@ -4,7 +4,7 @@ USING: tools.test bit-vectors vectors sequences kernel math ;
[ 0 ] [ 123 <bit-vector> length ] unit-test [ 0 ] [ 123 <bit-vector> length ] unit-test
: do-it : do-it
1234 swap [ >r even? r> push ] curry each ; 1234 swap [ [ even? ] dip push ] curry each ;
[ t ] [ [ t ] [
3 <bit-vector> dup do-it 3 <bit-vector> dup do-it