check-copy ( src n dst -- src n dst )

Vocabulary

sequences.private

Inputs

src	an object
n	an object
dst	an object

Outputs

src	an object
n	an object
dst	an object

Definition

USING: kernel math sequences ;

IN: sequences.private

: check-copy ( src n dst -- src n dst )
    3dup bounds-check-head [ swap length + ] dip lengthen ;
    inline