this-line-and-next ( document line -- start end )

Vocabulary

ui.gadgets.editors.private

Inputs

document	an object
line	an object

Outputs

start	an object
end	an object

Definition

USING: arrays documents kernel math ;

IN: ui.gadgets.editors.private

: this-line-and-next ( document line -- start end )
    swap [ drop 0 2array ] [ [ 1 + ] dip line-end ] 2bi ;