print-rdap-nested ( padding key value -- )

Vocabulary

rdap.private

Inputs

padding	an object
key	an object
value	an object

Outputs

None

Definition

IN: rdap.private

GENERIC: print-rdap-nested ( padding key value -- )

Methods

USING: arrays kernel rdap.private sequences ;

M: array print-rdap-nested [ print-rdap-nested ] 2with each ;


USING: assocs io kernel linked-assocs rdap.private sequences ;

M: linked-assoc print-rdap-nested
    [ over write write ":" print "  " append ] dip
    [ swapd print-rdap-nested ] with assoc-each ;


USING: io kernel present rdap.private sequences ;

M: object print-rdap-nested
    present
    [ 2drop ] [ [ ": " [ write ] tri@ ] dip print ] if-empty ;