diff --git a/basis/struct-arrays/prettyprint/prettyprint.factor b/basis/struct-arrays/prettyprint/prettyprint.factor index b0de966adb..352def9055 100644 --- a/basis/struct-arrays/prettyprint/prettyprint.factor +++ b/basis/struct-arrays/prettyprint/prettyprint.factor @@ -1,2 +1,13 @@ -USING: struct-arrays ; +! (c)Joe Groff bsd license +USING: accessors arrays kernel prettyprint.backend +prettyprint.custom sequences struct-arrays ; IN: struct-arrays.prettyprint + +M: struct-array pprint-delims + drop \ struct-array{ \ } ; + +M: struct-array >pprint-sequence + [ >array ] [ class>> ] bi prefix ; + +M: struct-array pprint* pprint-object ; +