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