prettyprint struct-arrays

2009-08-26 18:22:51 -05:00 · 2009-08-26 18:22:51 -05:00 · 49d123aa84
parent 2d66dc9f29
commit 49d123aa84
1 changed files with 12 additions and 1 deletions
--- 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 ;
+