benchmark.reverse-complement: Fix usage of <groups>.

2013-03-23 13:04:03 -07:00 · 2013-03-23 13:04:03 -07:00 · a55a367bf3
parent e68f41041f
commit a55a367bf3
1 changed files with 1 additions and 1 deletions
--- 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 <groups> [ print ] each ;
+    translate-seq 60 group [ print ] each ;

 : do-line ( seq line -- seq )
    dup first ">;" member-eq?