(assert-nth-unsafe) ( word -- )

Vocabulary

tools.annotations.assertions

Inputs

word

an object

Outputs

None

Definition

USING: kernel tools.annotations ;

IN: tools.annotations.assertions

: (assert-nth-unsafe) ( word -- )
    dup
    [ swap [ [ check-nth-unsafe ] curry ] dip compose ] curry
    annotate ;