From 342b8f5ef6b49f642235c5c950b4a39a1b437229 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 24 Jun 2016 10:04:51 -0700
Subject: [PATCH] modern.out: only write last space when there's a delimiter.

---
 core/modern/out/out.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/modern/out/out.factor b/core/modern/out/out.factor
index 4aab623c9d..98f46e5410 100644
--- a/core/modern/out/out.factor
+++ b/core/modern/out/out.factor
@@ -137,7 +137,7 @@ B
         [ 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 [ lexed-underlying [ write-whitespace ] when* ] when* ]
+        [ [ seq>> 3 swap ?nth ] [ closing-tag>> ] bi 2dup and [ drop [ lexed-underlying [ write-whitespace ] when* ] when* ] [ 2drop ] if ]
         [ closing-tag>> [ write ] when* ]
     } cleave ;