Tweak prettyprinter

2008-09-08 17:52:11 -05:00 · 2008-09-08 17:52:11 -05:00 · d97ea12439
parent c992607677
commit d97ea12439
1 changed files with 2 additions and 1 deletions
--- a/basis/prettyprint/backend/backend.factor
+++ b/basis/prettyprint/backend/backend.factor
@ -191,7 +191,8 @@ M: wrapper >pprint-sequence wrapped>> 1array ;
 M: callstack >pprint-sequence callstack>array ;

 M: tuple >pprint-sequence
-    [ class f 2array ] [ tuple-slots ] bi append ;
+    [ class ] [ tuple-slots ] bi
+    [ 1array ] [ [ f 2array ] dip append ] if-empty ;

 GENERIC: pprint-narrow? ( obj -- ? )