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 ] ] dip [ instance? [ seq>> ] [ 1array ] if ] curry
    compose map concat ; inline