4 (let ((query (uri-query uri)))
5 (serve-document-header (ext->mime "gmi"))
7 (print "No account specified.")
8 (let* ((hash (symbol->string (caar query)))
9 (account-file (make-pathname "accounts" hash)))
10 (if (file-exists? account-file)
12 (delete-file account-file)
13 (print "Garden successfully deleted."))
14 (print "Attempted to delete non-existent garden."))))
15 (print "\n=> /microbotany/ Return to μBotany")))