gb-too-big? ( gb -- ? )

Vocabulary

gap-buffer

Inputs

gb

an object

Outputs

?

an object

Definition

USING: accessors kernel math sequences ;

IN: gap-buffer

: gb-too-big? ( gb -- ? )
    dup buffer-length over min-size>> >
    [ dup length over buffer-length rot expand-factor>> sq / < ]
    [ drop f ] if ;