From d19082dca7dea4d56aab846711d9823c10b4aebf Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 8 Dec 2007 17:47:39 -0500 Subject: [PATCH] Tweak reverse-complement a bit so that a member? test is open-coded --- extra/benchmark/reverse-complement/reverse-complement.factor | 2 ++ 1 file changed, 2 insertions(+) diff --git a/extra/benchmark/reverse-complement/reverse-complement.factor b/extra/benchmark/reverse-complement/reverse-complement.factor index 7de7ec24b4..4da3972e34 100644 --- a/extra/benchmark/reverse-complement/reverse-complement.factor +++ b/extra/benchmark/reverse-complement/reverse-complement.factor @@ -26,6 +26,8 @@ HINTS: do-trans-map string ; over push ] if ; +HINTS: do-line vector string ; + : (reverse-complement) ( seq -- ) readln [ do-line (reverse-complement) ] [ show-seq ] if* ;