parse-range ( from/f to/f quot: ( input -- value ) seq -- from to )

Vocabulary

crontab.private

Inputs

from/f	an object
to/f	an object
quot	a quotation with stack effect ( input -- value )
seq	an object

Outputs

from	an object
to	an object

Definition

USING: sequences ;

IN: crontab.private

:: parse-range
    ( from/f to/f quot: ( input -- value ) seq -- from to )
    from/f [ seq first ] quot if-empty to/f
    [ seq last ] quot if-empty ; inline