check-nth-unsafe ( n seq word -- n seq )

Vocabulary

tools.annotations.assertions

Inputs

n	an object
seq	an object
word	an object

Outputs

n	an object
seq	an object

Definition

USING: kernel math sequences ;

IN: tools.annotations.assertions

: check-nth-unsafe ( n seq word -- n seq )
    2over length >= [ invalid-nth-unsafe ] [ drop ] if ; inline