From 2a6c299cfc6d06658b9754f4a2fbd4aa0b6b03e2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 2 Feb 2006 20:53:23 +0000 Subject: [PATCH] Add some newlines with inserted elements, to help readability. --- v7/src/ssp/xhtml-expander.scm | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) diff --git a/v7/src/ssp/xhtml-expander.scm b/v7/src/ssp/xhtml-expander.scm index 2a2bee9e1..909767829 100644 --- a/v7/src/ssp/xhtml-expander.scm +++ b/v7/src/ssp/xhtml-expander.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: xhtml-expander.scm,v 1.8 2006/02/02 20:49:54 cph Exp $ +$Id: xhtml-expander.scm,v 1.9 2006/02/02 20:53:23 cph Exp $ Copyright 2002,2003,2004,2006 Massachusetts Institute of Technology @@ -36,10 +36,18 @@ USA. (read/expand-xml-file pathname (make-expansion-environment pathname)))) (if (not (xml-document-declaration document)) - (set-xml-document-declaration! document - (make-xml-declaration "1.0" #f #f))) + (begin + (set-xml-document-declaration! document + (make-xml-declaration "1.0" #f #f)) + (set-xml-document-misc-1! document + (cons "\n" + (xml-document-misc-1 document))))) (if (not (xml-document-dtd document)) - (set-xml-document-dtd! document html-1.0-dtd)) + (begin + (set-xml-document-dtd! document html-1.0-dtd) + (set-xml-document-misc-2! document + (cons "\n" + (xml-document-misc-2 document))))) (let ((root (xml-document-root document))) (if (not (find-xml-attr 'xmlns root)) (set-xml-element-attributes! @@ -78,7 +86,7 @@ USA. `((scheme ,(pi-expander environment)) (svar ,svar-expander) (sabbr ,sabbr-expander))))))) - + (define (make-expansion-environment pathname) (let ((pathname (merge-pathnames pathname)) (environment (extend-top-level-environment expander-environment))) @@ -101,7 +109,7 @@ USA. (expander-eval expression environment) (loop)))))) (car *outputs*))) - + (define expander-eval eval) (define (svar-expander text) -- 2.25.1