nth* ( n seq -- elt/f ? )

Vocabulary

retries

Inputs

n	an object
seq	an object

Outputs

elt/f	an object
?	an object

Definition

USING: kernel sequences ;

IN: retries

: nth* ( n seq -- elt/f ? )
    2dup bounds-check? [ nth t ] [ 2drop f f ] if ;