prepare-capture-table ( table -- table' )

Vocabulary

regexp.captures.private

Inputs

table

an object

Outputs

table'

an object

Definition

USING: accessors assocs kernel sequences ;

IN: regexp.captures.private

: prepare-capture-table ( table -- table' )
    [
        [
            >alist [
                first2
                [ prepare-capture-label ]
                [ [ prepare-capture-target ] map ] bi*
                capture-edge boa
            ] map
        ] assoc-map
    ] change-transitions
    [ prepare-capture-target ] change-start-state ;