copy-elements ( dst start end seq -- )

Vocabulary

gap-buffer

Inputs

dst	an object
start	an object
end	an object
seq	an object

Outputs

None

Definition

USING: kernel math ;

IN: gap-buffer

: copy-elements ( dst start end seq -- )
    2over >
    [ [ dupd - ] dip swap copy-elements-forward ]
    [ [ over - ] dip swap copy-elements-back ] if ;