condition-states ( condition -- states )

Vocabulary

regexp.classes

Inputs

condition

an object

Outputs

states

an object

Definition

USING: accessors arrays kernel sets ;

IN: regexp.classes

: condition-states ( condition -- states )
    dup condition?
    [ [ yes>> ] [ no>> ] bi [ condition-states ] bi@ union ]
    [ 1array ] if ;