(describe) ( obj assoc -- keys )

Vocabulary

inspector.private

Inputs

obj	an object
assoc	an object

Outputs

keys

an object

Definition

USING: assocs hashtables inspector io kernel namespaces
prettyprint ;

IN: inspector.private

: (describe) ( obj assoc -- keys )
    t pprint-string-cells? [
        [ print-summary nl ] [
            dup hashtable? [ sort-unparsed-keys ] when
            [ fix-slot-names add-numbers simple-table. ]
            [ keys ] bi
        ] bi*
    ] with-variable ;