object-table. ( obj alist -- )

Vocabulary

prettyprint

Inputs

obj	an object
alist	an object

Outputs

None

Definition

USING: arrays combinators kernel sequences ;

IN: prettyprint

: object-table. ( obj alist -- )
    [
        [ nip first ] [ second ( obj -- str ) call-effect ] 2bi
        2array
    ] with map simple-table. ;