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

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

@ -32,8 +32,9 @@
;; Helping functions ;; Helping functions
(define (do-html-sending sender html-tree) (define (do-html-sending sender html-tree)
(sender (make-usual-html-response (do-html-string-sending
(sxml->string html-tree surflet-sxml-rules)))) sender
(sxml->string html-tree surflet-sxml-rules)))
(define (do-html-string-sending sender html-string) (define (do-html-string-sending sender html-string)
(sender (make-usual-html-response html-string))) (sender (make-usual-html-response html-string)))