make-or-class ( partition -- and-class )

Vocabulary

regexp.classes

Inputs

partition

an object

Outputs

and-class

an object

Definition

USING: accessors kernel sequences sets ;

IN: regexp.classes

: make-or-class ( partition -- and-class )
    answer-ands repartition [ f swap remove ] change-other
    dup tautology?
    [ drop t ] [
        filter-integers class-partition>sequence members f
        or-class sequence>instance
    ] if ;