From 8b90c1a72952f0f9f769f724c8229f803c3f1240 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 20 Jun 2016 16:52:00 -0700 Subject: [PATCH] modern.out: fix colon word printing to not require closing. --- 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 8ab3b67ea4..aca7a46bbe 100644 --- a/core/modern/out/out.factor +++ b/core/modern/out/out.factor @@ -99,7 +99,7 @@ M: uppercase-colon-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 lexed-underlying [ write-whitespace ] when* ] + [ seq>> 3 swap nth [ lexed-underlying [ write-whitespace ] when* ] when* ] [ closing-tag>> [ write ] when* ] } cleave ;