Use do-html-string-sending in do-html-sending

This commit is contained in:
interp 2003-05-13 14:02:24 +00:00
parent bd6a537197
commit 69ea6ae13f
1 changed files with 4 additions and 3 deletions

View File

@ -32,8 +32,9 @@
;; 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)))