copy-loop ( dst dst-i src src-i src-stop -- dst )

Vocabulary

sequences.private

Inputs

dst	an object
dst-i	an object
src	an object
src-i	an object
src-stop	an object

Outputs

dst

an object

Definition

USING: kernel math ;

IN: sequences.private

: copy-loop ( dst dst-i src src-i src-stop -- dst )
    [ >= ] 2check
    [ 4drop ] [
        [ [ copy-nth-of-unsafe ] 4keep [ 1 + ] 2dip 1 + ] dip
        copy-loop
    ] if ; inline recursive