rotate ( n gb -- )

Vocabulary

gap-buffer

Inputs

n	an object
gb	an object

Outputs

None

Definition

USING: kernel math ;

IN: gap-buffer

: rotate ( n gb -- )
    over 0 >
    [ [ rotate-right ] curry times ]
    [ [ neg ] dip [ rotate-left ] curry times ] if ;