parse-satisfy ( input quot -- result/f )

Vocabulary

peg.private

Inputs

input	an object
quot	an object

Outputs

result/f

an object

Definition

USING: kernel peg sequences ;

IN: peg.private

:: parse-satisfy ( input quot -- result/f )
    input
    [ f ] [
        unclip-slice dup quot call
        [ <parse-result> ] [ 2drop f ] if
    ] if-empty ; inline