diff --git a/extra/benchmark/reverse-complement/reverse-complement.factor b/extra/benchmark/reverse-complement/reverse-complement.factor index f9be4b5055..1a4b6c6e49 100644 --- a/extra/benchmark/reverse-complement/reverse-complement.factor +++ b/extra/benchmark/reverse-complement/reverse-complement.factor @@ -12,7 +12,7 @@ TR: trans-map ch>upper "ACGTUMRYKVHDB" "TGCAAKYRMBDHV" ; concat reverse! dup trans-map-fast ; : show-seq ( seq -- ) - translate-seq 60 [ print ] each ; + translate-seq 60 group [ print ] each ; : do-line ( seq line -- seq ) dup first ">;" member-eq?