repeat-loop ( quot: ( -- result/f ) result -- result )

Vocabulary

peg.private

Inputs

quot	a quotation with stack effect ( -- result/f )
result	an object

Outputs

result

an object

Definition

USING: accessors kernel sequences ;

IN: peg.private

: repeat-loop ( quot: ( -- result/f ) result -- result )
    over call [
        [ remaining>> >>remaining ] [ ast>> ] bi over ast>> push
        repeat-loop
    ] [ nip ] if* ; inline recursive