sunet/web-server/root/surflets/howto/hello.scm

11 lines
197 B
Scheme
Raw Permalink Normal View History

(define-structure surflet surflet-interface
(open surflets
scheme-with-scsh)
(begin
(define (main req)
(send-html/finish
'(html (body (h1 "Hello, world!")))))
))