Vocabulary
regexp.private

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


Outputs
None

Definition


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