answer-ors ( partition -- partition' )

Vocabulary

regexp.classes

Inputs

partition

an object

Outputs

partition'

an object

Definition

USING: accessors kernel sequences ;

IN: regexp.classes

: answer-ors ( partition -- partition' )
    dup [ not-integers>> ] [ not-simples>> ] [ simples>> ] tri
    3append [ [ t (substitute) ] each ] curry [ map ] curry
    change-or ;