unoptimized-frame. ( triple -- )

Vocabulary

prettyprint.private

Inputs

triple

an object

Outputs

None

Definition

USING: io io.styles kernel namespaces prettyprint
prettyprint.config sequences ;

IN: prettyprint.private

: unoptimized-frame. ( triple -- )
    [
        [ "(U)" write ] with-cell [
            dup [ second ] [ third ] bi remove-breakpoints
            H{ { nesting-limit 3 } { length-limit 100 } } clone
            [ pprint ] with-variables
        ] with-cell
    ] with-row dup frame-word?
    [ [ [ ] with-cell [ frame-word. ] with-cell ] with-row ]
    [ drop ] if ;