trimmed-stack. ( seq -- )

Vocabulary

listener.private

Inputs

seq

an object

Outputs

None

Definition

USING: io io.styles kernel listener math math.parser namespaces
prettyprint sequences ;

IN: listener.private

: trimmed-stack. ( seq -- )
    dup length max-stack-items get > [
        max-stack-items get cut* [
            [ length number>string "(" " more items)" surround ]
            keep write-object nl
        ] dip
    ] when stack. ;