do-line ( seq line -- seq )

Vocabulary

benchmark.reverse-complement

Inputs

seq	an object
line	an object

Outputs

seq

an object

Definition

USING: io kernel sequences ;

IN: benchmark.reverse-complement

: do-line ( seq line -- seq )
    dup first ">;" member-eq?
    [ over show-seq print dup delete-all ] [ suffix! ] if ;