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

modern.out: dont write extra space if there's no end delimiter.

locals-and-roots
Doug Coleman 2016-06-24 10:27:06 -07:00
parent 342b8f5ef6
commit 4f2ec33899
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/modern/out/out.factor
View File

@ -115,7 +115,6 @@ M: line-comment-literal write-literal
} 1&& ; } 1&& ;
: write-uppercase-colon-literal-nice ( obj -- ) : write-uppercase-colon-literal-nice ( obj -- )
B
{ {
[ seq>> 0 swap nth write-whitespace ] [ seq>> 0 swap nth write-whitespace ]
[ tag>> write ] [ tag>> write ]
@ -127,7 +126,7 @@ B
[ 2drop closing-tag>> [ write ] when* ] [ 2drop closing-tag>> [ write ] when* ]
[ 2nip write-literal ] 3tri [ 2nip write-literal ] 3tri
] ]
[ seq>> 3 swap nth lexed-underlying [ write-whitespace ] when* ] [ [ seq>> 3 swap ?nth ] [ closing-tag>> ] bi 2dup and [ drop [ lexed-underlying [ write-whitespace ] when* ] when* ] [ 2drop ] if ]
} cleave ; } cleave ;
: write-uppercase-colon-literal-vanilla ( obj -- ) : write-uppercase-colon-literal-vanilla ( obj -- )