(each-match) ( ... i string regexp quot: ( ... start end string -- ... ) -- ... )

Vocabulary

regexp.private

Inputs

i	an object
string	an object
regexp	an object
quot	a quotation with stack effect ( ... start end string -- ... )

Outputs

None

Definition

USING: kernel regexp ;

IN: regexp.private

: (each-match)
    ( ... i string regexp quot: ( ... start end string -- ... ) -- ... )
    over reverse-regexp?
    [ (each-match-backward) ] [ (each-match-forward) ] if ;
    inline