From 49d123aa84c9276f4579ec97f267272f633ad7d9 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 26 Aug 2009 18:22:51 -0500
Subject: [PATCH] prettyprint struct-arrays
---
basis/struct-arrays/prettyprint/prettyprint.factor | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
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 ;
+