(for-each eval (with-input-from-file "garden.scm" read-list))
(serve-document-header (ext->mime "gmi"))
(let ((query (uri-query uri)))
(for-each eval (with-input-from-file "garden.scm" read-list))
(serve-document-header (ext->mime "gmi"))
(let ((query (uri-query uri)))