diff options
| -rw-r--r-- | tekuti/page-helpers.scm | 9 |
1 files 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) |