[plt-scheme] literal html data in servlets

Eli Barzilay schreef:

>On Aug 18, Hans Oesterholt-Dijkema wrote:
>  
>
>>Hmm, ok, but what I really want is to include real (partial) HTML
>>code into an xexpr.
>>    
>>
>
>  (make-comment
>   (format "-->\n~a\n<!--"
>           "arbitrary html string")))
>
>A proper solution would be to fix the xml collection to have a
>construct that inserts literal text.  (There was probably some reason
>why this wasn't done...)
>  
>
It's a hack, but it works! Thanks! Wrapped it as follows:

(define-syntax make-literal
  (syntax-rules ()
    ((_ s1 ...)
     (make-comment (format "-->\n~a\n<!--" (string-append s1 ...))))))