From 9ecd1aff352fdc767e8ff339c33e4f306fc2a9f9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Dec 2002 18:19:04 +0000
Subject: [PATCH] Tweak formatting of DTD with both external and internal
 parts.

---
 v7/src/xml/xml-output.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/v7/src/xml/xml-output.scm b/v7/src/xml/xml-output.scm
index 4245f21c8..c38be088f 100644
--- a/v7/src/xml/xml-output.scm
+++ b/v7/src/xml/xml-output.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xml-output.scm,v 1.7 2002/12/09 18:17:57 cph Exp $
+;;; $Id: xml-output.scm,v 1.8 2002/12/09 18:19:04 cph Exp $
 ;;;
 ;;; Copyright (c) 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -101,7 +101,10 @@
 	(write-xml-external-id (xml-dtd-external dtd) indent port))
     (if (pair? (xml-dtd-internal dtd))
 	(begin
-	  (write-string " [" port)
+	  (if (xml-dtd-external dtd)
+	      (newline port)
+	      (write-string " " port))
+	  (write-string "[" port)
 	  (newline port)
 	  (for-each (lambda (element)
 		      (write-xml element port)
-- 
2.25.1