make-and-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-and-class ( partition -- and-class )
    answer-ors repartition [ t swap remove ] change-other
    dup contradiction?
    [ drop f ] [
        filter-not-integers class-partition>sequence members t
        and-class sequence>instance
    ] if ;