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

diff --git a/extra/benchmark/reverse-complement/reverse-complement.factor b/extra/benchmark/reverse-complement/reverse-complement.factor
index f9be4b50551e689ebdd9b4f689fab33ef9a414b0..1a4b6c6e49ad5ff8f04fc8fead7b2ca4e6ff24b6 100644 (file)
--- 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?