diff options
author | 2010-11-22 23:42:10 +0100 | |
---|---|---|
committer | 2010-11-22 23:42:10 +0100 | |
commit | 473bd070ae1c921c660f1127d3f8c67e4259280d (patch) | |
tree | 2e7ce6bcbaeb9551c13ce7dabccb2f97321f732b | |
parent | dda89fe5bfc1ef58abfc426e5dd68f58a1c84360 (diff) | |
download | tekuti-473bd070ae1c921c660f1127d3f8c67e4259280d.tar.gz tekuti-473bd070ae1c921c660f1127d3f8c67e4259280d.zip |
don't display doctype if unnecessary
* tekuti/page-helpers.scm (respond): Don't display a doctype if we
aren't given one.
-rw-r--r-- | tekuti/page-helpers.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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) |