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


Vocabulary
sequences.private

Definition
USING: kernel math sequences ;

IN: sequences.private

: check-copy ( src n dst -- src n dst )
3dup over 0 < [ bounds-error ] when [ swap length + ] dip
lengthen ; inline