take-some ( seqs -- seqs seq )

Vocabulary

quoted-printable.private

Inputs

seqs

an object

Outputs

seqs	an object
seq	an object

Definition

USING: kernel math sequences ;

IN: quoted-printable.private

: take-some ( seqs -- seqs seq )
    0 over [ length + dup 76 >= ] find drop nip
    [ 1 - cut-slice swap ] [ f swap ] if* concat ;