From f513a14e1c45c44f41b7e82bdbf2f646bf56fc86 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 24 Oct 2019 09:09:17 -0700
Subject: [PATCH] prettyprint.backend: print up to length-limit lists.

---
 basis/prettyprint/backend/backend.factor | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor
index 1e433709c5..cd3d388205 100644
--- a/basis/prettyprint/backend/backend.factor
+++ b/basis/prettyprint/backend/backend.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs byte-arrays byte-vectors classes
 classes.algebra.private classes.maybe classes.private
-classes.tuple combinators continuations effects generic
+classes.tuple combinators continuations effects fry generic
 hash-sets hashtables io.pathnames io.styles kernel lists make
 math math.order math.parser namespaces prettyprint.config
 prettyprint.custom prettyprint.sections prettyprint.stylesheet
@@ -271,8 +271,13 @@ M: cons-state pprint*
         dup pprint-delims [
             pprint-word
             dup pprint-narrow? <inset
-            [ car pprint* ]
-            [ cdr nil? [ "~more~" text ] unless ] bi
+            [
+                building get
+                length-limit get
+                '[ dup cons-state? _ length _ < and ]
+                [ uncons swap , ] while
+            ] { } make
+            [ pprint* ] each nil? [ "~more~" text ] unless
             block>
         ] dip pprint-word block>
     ] check-recursion ;