From d97ea12439e0432c6c7d4403f81211c9adfb8dc0 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 8 Sep 2008 17:52:11 -0500 Subject: [PATCH] Tweak prettyprinter --- basis/prettyprint/backend/backend.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor index 34ab1a2fcc..c2fd94e5cf 100755 --- 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 -- ? )