14 lines
386 B
Factor
14 lines
386 B
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{ \ } ;
|
|
|