2009-08-26 19:22:51 -04:00
|
|
|
! (c)Joe Groff bsd license
|
|
|
|
|
USING: accessors arrays kernel prettyprint.backend
|
|
|
|
|
prettyprint.custom sequences struct-arrays ;
|
2009-08-26 19:09:02 -04:00
|
|
|
IN: struct-arrays.prettyprint
|
2009-08-26 19:22:51 -04:00
|
|
|
|
|
|
|
|
M: struct-array pprint-delims
|
|
|
|
|
drop \ struct-array{ \ } ;
|
|
|
|
|
|
|
|
|
|
M: struct-array >pprint-sequence
|
|
|
|
|
[ >array ] [ class>> ] bi prefix ;
|
|
|
|
|
|
|
|
|
|
M: struct-array pprint* pprint-object ;
|
|
|
|
|
|
