satisfy-parser

Vocabulary

parser-combinators

Definition

IN: parser-combinators

TUPLE: satisfy-parser quot ;

Methods

USING: accessors combinators kernel lists parser-combinators
sequences ;

M: satisfy-parser parse
    over empty?
    [ 2drop nil ] [
        quot>> [ unclip-slice dup ] dip
        ( char -- ? ) call-effect
        [ swap <parse-results> ] [ 2drop nil ] if
    ] if ;