unit test fix

cvs
Slava Pestov 2005-09-12 02:01:59 +00:00
parent b856b6294b
commit bc8615b713
1 changed files with 1 additions and 1 deletions

View File

@ -25,7 +25,7 @@ random sequences sequences-internals strings test vectors ;
[ { 1 2 } ] [ [ 1 2 ] >vector ] unit-test
[ t ] [
100 [ drop 0 100 random-int ] map
100 [ drop 0 100 random-int ] map >vector
dup >list >vector =
] unit-test