partition>class ( parts -- class )

Vocabulary

regexp.disambiguate

Inputs

parts

an object

Outputs

class

an object

Definition

USING: accessors kernel regexp.classes sequences ;

IN: regexp.disambiguate

: partition>class ( parts -- class )
    [ out>> [ <not-class> ] map ] [ in>> <and-class> ] bi prefix
    <and-class> ;