simple-table. ( values -- )

Vocabulary

prettyprint

Inputs

values

an object

Outputs

None

Definition

USING: io io.styles kernel namespaces sequences strings ;

IN: prettyprint

: simple-table. ( values -- )
    standard-table-style [
        [
            [
                [
                    dup string? pprint-string-cells? get not and
                    [ ~quotation~ with-cell ] [ pprint-cell ] if
                ] each
            ] with-row
        ] each
    ] tabular-output nl ;