S{ } syntax for structs

basis/prettyprint/backend/backend.factor

@@ -138,12 +138,12 @@ M: pathname pprint*
     boa-tuples? get [ pprint-object ] [
         [
             <flow
-            \ T{ pprint-word
+            dup pprint-delims drop pprint-word
             dup class pprint-word
             t <inset
-            tuple>assoc [ pprint-slot-value ] assoc-each
+            dup tuple>assoc [ pprint-slot-value ] assoc-each
             block>
-            \ } pprint-word
+            pprint-delims nip pprint-word
             block>
         ] check-recursion
     ] if ;

extra/classes/struct/prettyprint/prettyprint.factor

@@ -1,5 +1,5 @@
 ! (c)Joe Groff bsd license
-USING: classes.struct kernel prettyprint.backend
+USING: classes.struct kernel prettyprint.backend prettyprint.custom
 prettyprint.sections see.private sequences words ;
 IN: classes.struct.prettyprint
 
@@ -8,3 +8,6 @@ M: struct-class see-class*
     <block "struct-slots" word-prop [ pprint-slot ] each
     block> pprint-; block> ;
 
+M: struct pprint-delims
+    drop \ S{ \ } ;
+

extra/classes/struct/struct.factor

@@ -160,3 +160,7 @@ SYNTAX: STRUCT:
 USING: vocabs vocabs.loader ;
 
 "prettyprint" vocab [ "classes.struct.prettyprint" require ] when
+
+SYNTAX: S{
+    POSTPONE: T{ ;
+