racket/collects/web-server/default-web-root/servlets/tests/response.ss
2005-05-27 18:56:37 +00:00

5 lines
140 B
Scheme

(define title "A Test of Direct Responses")
`(html (head (title ,title))
(body (h2 ,title)
(p "This is only a test.")))