From 290c53b9f65199ce4171d56dd4920cb0d370037d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 13 Jun 2016 15:12:09 -0700 Subject: [PATCH] modern.out: fix printing for FOO< FOO> --- core/modern/out/out.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/modern/out/out.factor b/core/modern/out/out.factor index 558fb5a44c..76f219a2fb 100644 --- a/core/modern/out/out.factor +++ b/core/modern/out/out.factor @@ -34,8 +34,8 @@ M: single-matched-literal write-literal [ seq>> 1 swap nth write-whitespace ] [ delimiter>> write ] [ payload>> write-literal ] ! don't need write-whitespace here, the recursion does it - [ seq>> 3 swap nth lexed-underlying write-whitespace ] - [ closing-tag>> write ] + [ seq>> 3 swap nth lexed-underlying [ write-whitespace ] when* ] + [ closing-tag>> [ write ] when* ] } cleave ; M: double-matched-literal write-literal