From 4f2ec33899309e2ffc295a4bc956bef6b91593f4 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 24 Jun 2016 10:27:06 -0700 Subject: [PATCH] modern.out: dont write extra space if there's no end delimiter. --- core/modern/out/out.factor | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/core/modern/out/out.factor b/core/modern/out/out.factor index 98f46e5410..d4a46b282f 100644 --- a/core/modern/out/out.factor +++ b/core/modern/out/out.factor @@ -115,7 +115,6 @@ M: line-comment-literal write-literal } 1&& ; : write-uppercase-colon-literal-nice ( obj -- ) -B { [ seq>> 0 swap nth write-whitespace ] [ tag>> write ] @@ -127,7 +126,7 @@ B [ 2drop closing-tag>> [ write ] when* ] [ 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 ; : write-uppercase-colon-literal-vanilla ( obj -- )