copy-elements-back ( dst start seq n -- )

Vocabulary

gap-buffer

Inputs

dst	an object
start	an object
seq	an object
n	an object

Outputs

None

Definition

USING: kernel math ;

IN: gap-buffer

: copy-elements-back ( dst start seq n -- )
    dup 0 > [
        [ [ copy-element ] 3keep [ 1 + ] dip ] dip 1 -
        copy-elements-back
    ] [ 3drop drop ] if ;