[plt-scheme] servlets and mathml
I try the following:
(module test-mathml mzscheme
(require (lib "servlet.ss" "web-server")
(lib "date.ss")
(lib "xml.ss" "xml")
)
(provide interface-version timeout start)
(define interface-version 'v1)
(define timeout +inf.0)
(define (make-page body)
(make-response/full
200 "OK" (current-seconds) (string->bytes/utf-8 "text/html")
'()
(list "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"
(xexpr->string
`(html
(head (title "A Title")
(meta ((http-equiv "Content-Type")
(content "text/html;charset=ISO-8859-1"))))
,body)))))
(define (start initial-request)
(make-page
(math ((xmlns "http://www.w3.org/1998/Math/MathML"))
(mrow
(msup
(mfenced (mrow (mi "a")(mo "+")(mi "b")))(mn "2")))
)))
)
Ang get the following error:
Servlet didn't load.
C:\Programs\PLT\collects\web-server\default-web-root\.\servlets\examples\test-mathml.scm:10:5: compile: unbound variable in module in: make-response/full