cleanup "over push" is "suffix!".

[factor.git] / extra / benchmark / reverse-complement / reverse-complement.factor

diff --git a/extra/benchmark/reverse-complement/reverse-complement.factor b/extra/benchmark/reverse-complement/reverse-complement.factor
index 5fb34065c5877f01ab47763d71b1e1523fc2c127..b6bddd3060c2b31b50b2e49bc09988cfdaab76f9 100644 (file)
--- a/extra/benchmark/reverse-complement/reverse-complement.factor
+++ b/extra/benchmark/reverse-complement/reverse-complement.factor
@@ -16,7 +16,7 @@ TR: trans-map ch>upper "ACGTUMRYKVHDB" "TGCAAKYRMBDHV" ;
 
 : do-line ( seq line -- seq )
     dup first ">;" member-eq?
-    [ over show-seq print dup delete-all ] [ over push ] if ;
+    [ over show-seq print dup delete-all ] [ suffix! ] if ;
 
 HINTS: do-line vector string ;