From 8034123827caa8ea3f080907faf28bb405f76417 Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Tue, 14 Feb 2012 17:29:08 +0100
Subject: no sxml, no body

* tekuti/page-helpers.scm (respond): Give no body if there is no SXML.
  Fixes perhaps spurious errors raised by Guile's web server.
---
 tekuti/page-helpers.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm
index 15d5650..ab0a5e7 100644
--- a/tekuti/page-helpers.scm
+++ b/tekuti/page-helpers.scm
@@ -94,11 +94,10 @@
                       date (current-date)
                       etag (if (string? etag) (cons etag #t) etag)
                       extra-headers))
-          (lambda (port)
-            (if sxml
-                (begin
-                  (if doctype (display doctype port))
-                  (sxml->xml sxml port))))))
+          (and sxml
+               (lambda (port)
+                 (if doctype (display doctype port))
+                 (sxml->xml sxml port)))))
 
 (define (unparse-www-form-urlencoded alist)
   (string-join (map (lambda (pair)
-- 
cgit v1.2.3-54-g00ecf