flatten ( seq class -- newseq )

Vocabulary

regexp.classes

Inputs

seq	an object
class	an object

Outputs

newseq

an object

Definition

USING: accessors arrays classes kernel sequences ;

IN: regexp.classes

: flatten ( seq class -- newseq )
    '[ dup _ instance? [ seq>> ] [ 1array ] if ] map concat ;
    inline