repeat1-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 peg sequences ;

IN: peg.private

: repeat1-loop ( quot: ( -- result/f ) result -- result )
    over call [
        [ remaining>> >>remaining ] [ ast>> ] bi dup ignore =
        [ drop ] [ over ast>> push ] if repeat0-loop
    ] [ 2drop f ] if* ; inline