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

restore pprint stack when c-object pprinters fail so that the fallback pprint syntax is still clickable

db4
Joe Groff 2009-08-31 20:10:51 -05:00
parent 79be927371
commit 52a5a22b9d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -154,10 +154,14 @@ M: pathname pprint*
M: tuple pprint* M: tuple pprint*
pprint-tuple ; pprint-tuple ;
: recover-pprint ( try recovery -- )
pprinter-stack get clone
[ pprinter-stack set ] curry prepose recover ; inline
: pprint-c-object ( object content-quot pointer-quot -- ) : pprint-c-object ( object content-quot pointer-quot -- )
[ c-object-pointers? get ] 2dip [ c-object-pointers? get ] 2dip
[ nip ] [ nip ]
[ [ drop ] prepose [ recover ] 2curry ] 2bi if ; inline [ [ drop ] prepose [ recover-pprint ] 2curry ] 2bi if ; inline
: do-length-limit ( seq -- trimmed n/f ) : do-length-limit ( seq -- trimmed n/f )
length-limit get dup [ length-limit get dup [