From 473bd070ae1c921c660f1127d3f8c67e4259280d Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Mon, 22 Nov 2010 23:42:10 +0100
Subject: [PATCH] don't display doctype if unnecessary

* tekuti/page-helpers.scm (respond): Don't display a doctype if we
  aren't given one.
---
 tekuti/page-helpers.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm
index effdc00..a76074e 100644
--- a/tekuti/page-helpers.scm
+++ b/tekuti/page-helpers.scm
@@ -95,7 +95,7 @@
           (lambda (port)
             (if sxml
                 (begin
-                  (display doctype port)
+                  (if doctype (display doctype port))
                   (sxml->xml sxml port))))))
 
 (define (unparse-www-form-urlencoded alist)