parse-range ( input min max -- result/f )

Vocabulary

peg.private

Inputs

input	an object
min	an object
max	an object

Outputs

result/f

an object

Definition

USING: kernel math.order peg sequences ;

IN: peg.private

:: parse-range ( input min max -- result/f )
    input
    [ f ] [
        dup first min max between?
        [ unclip-slice <parse-result> ] [ drop f ] if
    ] if-empty ;