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

prettyprint.backend: print only cons-states.

clean-macosx-x86-64
John Benediktsson 2019-10-16 10:11:46 -07:00
parent 4b45df48f8
commit 6cc7ca2a97
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -213,7 +213,7 @@ M: array pprint-delims drop \ { \ } ;
M: byte-array pprint-delims drop \ B{ \ } ; M: byte-array pprint-delims drop \ B{ \ } ;
M: byte-vector pprint-delims drop \ BV{ \ } ; M: byte-vector pprint-delims drop \ BV{ \ } ;
M: vector pprint-delims drop \ V{ \ } ; M: vector pprint-delims drop \ V{ \ } ;
M: list pprint-delims drop \ L{ \ } ; M: cons-state pprint-delims drop \ L{ \ } ;
M: hashtable pprint-delims drop \ H{ \ } ; M: hashtable pprint-delims drop \ H{ \ } ;
M: tuple pprint-delims drop \ T{ \ } ; M: tuple pprint-delims drop \ T{ \ } ;
M: wrapper pprint-delims drop \ W{ \ } ; M: wrapper pprint-delims drop \ W{ \ } ;
@ -228,7 +228,6 @@ M: object >pprint-sequence ;
M: vector >pprint-sequence ; M: vector >pprint-sequence ;
M: byte-vector >pprint-sequence ; M: byte-vector >pprint-sequence ;
M: callable >pprint-sequence ; M: callable >pprint-sequence ;
M: list >pprint-sequence list>array ;
M: hashtable >pprint-sequence >alist ; M: hashtable >pprint-sequence >alist ;
M: wrapper >pprint-sequence wrapped>> 1array ; M: wrapper >pprint-sequence wrapped>> 1array ;
M: callstack >pprint-sequence callstack>array ; M: callstack >pprint-sequence callstack>array ;
@ -266,16 +265,15 @@ M: object pprint* pprint-object ;
M: vector pprint* pprint-object ; M: vector pprint* pprint-object ;
M: byte-vector pprint* pprint-object ; M: byte-vector pprint* pprint-object ;
M: list pprint* M: cons-state pprint*
[ [
<flow <flow
dup pprint-delims [ dup pprint-delims [
pprint-word pprint-word
dup pprint-narrow? <inset dup pprint-narrow? <inset
dup nil? [ drop ] [ [ car pprint* ]
[ car pprint* ] [ cdr nil? [ "~more~" text ] unless ] bi
[ cdr nil? [ "~more~" text ] unless ] bi block>
] if block>
] dip pprint-word block> ] dip pprint-word block>
] check-recursion ; ] check-recursion ;