steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

prettyprint.backend: print up to length-limit lists.

clean-macosx-x86-64
John Benediktsson 2019-10-24 09:09:17 -07:00
parent 6cc7ca2a97
commit f513a14e1c
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/prettyprint/backend/backend.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs byte-arrays byte-vectors classes USING: accessors arrays assocs byte-arrays byte-vectors classes
classes.algebra.private classes.maybe classes.private 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 hash-sets hashtables io.pathnames io.styles kernel lists make
math math.order math.parser namespaces prettyprint.config math math.order math.parser namespaces prettyprint.config
prettyprint.custom prettyprint.sections prettyprint.stylesheet prettyprint.custom prettyprint.sections prettyprint.stylesheet
@ -271,8 +271,13 @@ M: cons-state pprint*
dup pprint-delims [ dup pprint-delims [
pprint-word pprint-word
dup pprint-narrow? <inset 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> block>
] dip pprint-word block> ] dip pprint-word block>
] check-recursion ; ] check-recursion ;