;; Incremental servlet with no arguments on the URL, in text/html, with URL
;; path.
(require (lib "unitsig.ss")
(lib "servlet-sig.ss" "web-server")
)
(unit/sig ()
(import servlet^)
(let ((cd (path->string (current-directory))))
(send/finish
(make-html-response/incremental
(lambda (output-chunked)
(output-chunked "")
(output-chunked "Title")
(sleep 1)
(output-chunked "Title
")
(output-chunked "Current path: ")
(sleep 1)
(output-chunked cd)
(output-chunked "
")))))
)