Vocabulary
regexp.private

Inputs
ian object
stringan object
regexpan object
quota quotation with stack effect ( ... start end string -- ... )


Outputs
None

Definition


:: (each-match-backward)
( ... i string regexp quot: ( ... start end string -- ... ) -- ... )
i -1 >= [
i string regexp do-next-match [| start end |
start 1 + end 1 + string quot call start end eq?
[ start 1 - ] [ start ] if
string regexp quot (each-match-backward)
] [ 2drop ] if
] when ; inline recursive