diff --git a/core/modern/out/out.factor b/core/modern/out/out.factor index 6da8f30af3..5073bd0d31 100644 --- a/core/modern/out/out.factor +++ b/core/modern/out/out.factor @@ -131,11 +131,8 @@ M: line-comment-literal write-literal [ 2nip write-literal ] 3tri ] [ - [ seq>> 3 swap ?nth ] [ closing-tag>> ] bi 2dup and - ! inserting ; - [ write-whitespace-nice ] - ! removing ; - [ drop [ tag>> length 1 + last-slice swap '[ _ modify-to ] change ] when* ] if + seq>> 3 swap ?nth + [ tag>> length 1 + last-slice swap '[ _ modify-to ] change ] when* ] } cleave ; @@ -146,7 +143,10 @@ M: line-comment-literal write-literal [ seq>> 1 swap nth write-whitespace ] [ delimiter>> write ] [ 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* ] } cleave ;