factor/extra/classes/struct/prettyprint/prettyprint.factor

! (c)Joe Groff bsd license
USING: classes.struct kernel prettyprint.backend prettyprint.custom
prettyprint.sections see.private sequences words ;
IN: classes.struct.prettyprint

M: struct-class see-class*
    <colon \ STRUCT: pprint-word dup pprint-word
    <block "struct-slots" word-prop [ pprint-slot ] each
    block> pprint-; block> ;

M: struct pprint-delims
    drop \ S{ \ } ;