do-length-limit ( seq -- trimmed n/f )

Vocabulary

prettyprint.backend

Inputs

seq	a sequence

Outputs

trimmed	a trimmed sequence
n/f	an integer or f

Word description

If the length-limit is set and the sequence length exceeds this limit, trims the sequence and outputs a the number of elements which were chopped off the end. Otherwise outputs f.

Notes

This word should only be called from inside the with-pprint combinator.

Definition

USING: kernel math math.order namespaces prettyprint.config
sequences ;

IN: prettyprint.backend

: do-length-limit ( seq -- trimmed n/f )
    length-limit get dup [
        1 - over length over [-] dup 1 >
        [ [ head-slice ] dip ] [ 2drop f ] if
    ] when ;