accept1 ( n string quot: ( ch -- ? ) -- n/n' string ch/f )

Vocabulary

modern.slices

Inputs

n	an object
string	an object
quot	a quotation with stack effect ( ch -- ? )

Outputs

n/n'	an object
string	an object
ch/f	an object

Definition

USING: kernel math sequences ;

IN: modern.slices

: accept1 ( n string quot: ( ch -- ? ) -- n/n' string ch/f )
    [ 2dup nth ] dip keep swap [ [ 1 + ] 2dip ] [ drop f ] if ;
    inline