remove-breakpoints ( quot pos -- quot' )

Vocabulary

prettyprint.private

Inputs

quot	an object
pos	an object

Outputs

quot'

an object

Definition

USING: kernel math sequences ;

IN: prettyprint.private

: remove-breakpoints ( quot pos -- quot' )
    1 + index-or-length cut [ (remove-breakpoints) ] bi@
    [ => ] glue ;