From 2ad91ce941c8421959b1b39b7e2d24e046ba4c88 Mon Sep 17 00:00:00 2001 From: Benjamin Pollack Date: Fri, 11 Mar 2016 16:18:29 -0500 Subject: [PATCH] xml.writer: do not include meaningless extra whitespace in doctype This is theoretically merely annoying, but since we're using the XML vocab in tons of places as an overenthusiastic HTML generator, and HTML5 technically mandates that the first token needs to be `` full-stop, this had to get fixed. --- basis/xml/writer/writer.factor | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/basis/xml/writer/writer.factor b/basis/xml/writer/writer.factor index 06c0fcf87d..0f7b339f38 100644 --- a/basis/xml/writer/writer.factor +++ b/basis/xml/writer/writer.factor @@ -142,9 +142,10 @@ M: public-id write-xml M: doctype-decl write-xml ?indent "> write bl ] - [ external-id>> [ write-xml bl ] when* ] - [ internal-subset>> write-internal-subset ">" write ] tri ; + [ name>> write ] + [ external-id>> [ bl write-xml ] when* ] + [ internal-subset>> [ bl write-internal-subset ] when* ] tri + ">" write ; M: directive write-xml "> write CHAR: > write1 nl ;