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

prettyprint.sections: don't create empty strings with zero indent.

modern-harvey2
John Benediktsson 2017-06-11 10:53:55 -07:00
parent e8cef24486
commit 3018010f67
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/prettyprint/sections/sections.factor
View File

@ -42,7 +42,8 @@ M: maybe vocabulary-name
: line-limit? ( -- ? ) : line-limit? ( -- ? )
line-limit get dup [ pprinter get line-count>> <= ] when ; line-limit get dup [ pprinter get line-count>> <= ] when ;
: do-indent ( -- ) pprinter get indent>> CHAR: \s <string> write ; : do-indent ( -- )
pprinter get indent>> [ CHAR: \s <string> write ] unless-zero ;
: fresh-line ( n -- ) : fresh-line ( n -- )
pprinter get 2dup last-newline>> = [ pprinter get 2dup last-newline>> = [