scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/httpd/surflets/send-html.scm
View File

@ -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)))