X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=microbotany.git;a=blobdiff_plain;f=delete.scm;h=53050d16c7070bbc7556694865bee534d59efaa3;hp=a2590612fbf0b7f08b6a8dd3e3af9cb834ce46ae;hb=HEAD;hpb=603c9be4154b10f0c7d07a402d3f684dd1fd6b46

diff --git a/delete.scm b/delete.scm
index a259061..ca52708 100755
--- a/delete.scm
+++ b/delete.scm
@@ -1,10 +1,6 @@
 ;; Delete account
 
 (lambda (uri)
-  (import (chicken file)
-          (chicken pathname)
-          (chicken string)
-          uri-common)
   (let ((query (uri-query uri)))
     (serve-document-header (ext->mime "gmi"))
     (if (null? query)
@@ -14,6 +10,6 @@
           (if (file-exists? account-file)
               (begin
                 (delete-file account-file)
-                (print "Account successfully deleted."))
-              (print "Attempted to delete non-existent account."))))
+                (print "Garden successfully deleted."))
+              (print "Attempted to delete non-existent garden."))))
     (print "\n=> /microbotany/ Return to μBotany")))