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

modern.out: simplify writing out semicolons.

locals-and-roots
Doug Coleman 2016-06-24 15:51:10 -07:00
parent 37bf9ab99a
commit c29457cd95
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -131,11 +131,8 @@ M: line-comment-literal write-literal
[ 2nip write-literal ] 3tri [ 2nip write-literal ] 3tri
] ]
[ [
[ seq>> 3 swap ?nth ] [ closing-tag>> ] bi 2dup and seq>> 3 swap ?nth
! inserting ; [ tag>> length 1 + last-slice swap '[ _ modify-to ] change ] when*
[ write-whitespace-nice ]
! removing ;
[ drop [ tag>> length 1 + last-slice swap '[ _ modify-to ] change ] when* ] if
] ]
} cleave ; } cleave ;
@ -146,7 +143,10 @@ M: line-comment-literal write-literal
[ seq>> 1 swap nth write-whitespace ] [ seq>> 1 swap nth write-whitespace ]
[ delimiter>> write ] [ delimiter>> write ]
[ payload>> [ write-literal ] each ] ! don't need write-whitespace here, the recursion does it [ payload>> [ write-literal ] each ] ! don't need write-whitespace here, the recursion does it
[ [ seq>> 3 swap ?nth ] [ closing-tag>> ] bi 2dup and [ drop [ lexed-underlying [ write-whitespace ] when* ] when* ] [ 2drop ] if ] [
seq>> 3 swap ?nth
[ lexed-underlying [ write-whitespace ] when* ] when*
]
[ closing-tag>> [ write ] when* ] [ closing-tag>> [ write ] when* ]
} cleave ; } cleave ;