advance-captures ( ready ch -- seeds )


Vocabulary
regexp.captures.private

Inputs
readyan object
chan object


Outputs
seedsan object


Definition
USING: accessors kernel regexp.classes sequences ;

IN: regexp.captures.private

:: advance-captures ( ready ch -- seeds )
V{ } clone :> seeds ready [| thread |
thread pc>> [| edge |
ch edge label>> class-member? [
edge targets>> [
thread registers>> capture-thread boa
seeds push
] each
] when
] when*
] each seeds ;