condition-map ( condition quot: ( obj -- obj' ) -- new-condition )

Vocabulary

regexp.classes

Inputs

condition	an object
quot	a quotation with stack effect ( obj -- obj' )

Outputs

new-condition

an object

Definition

USING: accessors kernel ;

IN: regexp.classes

: condition-map
    ( condition quot: ( obj -- obj' ) -- new-condition )
    over condition? [
        [ [ question>> ] [ yes>> ] [ no>> ] tri ] dip
        [ condition-map ] curry bi@ <condition>
    ] [ call ] if ; inline recursive