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

prettyprinter regression fix

cvs
Slava Pestov 2005-09-01 06:01:51 +00:00
parent 416834a0c9
commit 1d168352f9
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
TODO.FACTOR.txt
View File

@ -1,7 +1,6 @@
- reader syntax for arrays, byte arrays, displaced aliens - reader syntax for arrays, byte arrays, displaced aliens
- out of memory error when printing global namespace - out of memory error when printing global namespace
- removing unneeded #label - removing unneeded #label
- pprint trailing space regression
- finish scrollbars - finish scrollbars
- fix up the min thumb size hack - fix up the min thumb size hack

5
library/syntax/prettyprint.factor
View File

@ -117,9 +117,12 @@ C: newline ( -- section )
M: newline pprint-section* ( newline -- ) M: newline pprint-section* ( newline -- )
section-start fresh-line ; section-start fresh-line ;
: advance ( section -- )
section-start last-newline get = [ " " write ] unless ;
M: block pprint-section* ( block -- ) M: block pprint-section* ( block -- )
f swap block-sections [ f swap block-sections [
over [ " " write ] when pprint-section drop t over [ dup advance ] when pprint-section drop t
] each drop ; ] each drop ;
: <block ( -- ) <block> pprinter get pprinter-stack push ; : <block ( -- ) <block> pprinter get pprinter-stack push ;