diff --git a/scheme/httpd/surflets/send-html.scm b/scheme/httpd/surflets/send-html.scm index a678ee8..0725cad 100644 --- a/scheme/httpd/surflets/send-html.scm +++ b/scheme/httpd/surflets/send-html.scm @@ -30,10 +30,11 @@ (define (send-html-string html-string) (do-html-string-sending send html-string)) -;; Helping functions +;; Helping functions (define (do-html-sending sender html-tree) - (sender (make-usual-html-response - (sxml->string html-tree surflet-sxml-rules)))) + (do-html-string-sending + sender + (sxml->string html-tree surflet-sxml-rules))) (define (do-html-string-sending sender html-string) (sender (make-usual-html-response html-string)))