X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=delete-confirm.scm;h=8652d6bebdc45f2bb51ef9bcc23195861f363252;hb=f096bfe68c400230fd1f6c77c5c09724f0ec5e71;hp=04459c7355f17d7397aa67e79d7e1c08ede1d443;hpb=603c9be4154b10f0c7d07a402d3f684dd1fd6b46;p=microbotany.git

diff --git a/delete-confirm.scm b/delete-confirm.scm
index 04459c7..8652d6b 100755
--- a/delete-confirm.scm
+++ b/delete-confirm.scm
@@ -1,19 +1,16 @@
 ;; Account deletion confirmation
 
 (lambda (uri)
-  (import (chicken file)
-          (chicken pathname)
-          (chicken string)
-          uri-common)
+  (import (chicken io))
   (let ((query (uri-query uri)))
     (if (null? query)
         (print "No account specified.")
         (begin
           (serve-document-header (ext->mime "gmi"))
-          (print "Are you sure you want to delete your account?  (This action is irreversible!)")
+          (print "Are you sure you want to delete your garden?  (This action is irreversible!)")
           (print "\n=> " (uri->string (update-uri uri
                                                  path: '(/ "microbotany" "delete.scm")))
-                 " Yes, delete my account.")
+                 " Yes, delete my garden.")
           (print "\n=> " (uri->string (update-uri uri
                                                  path: '(/ "microbotany" "view.scm")))
                  " No, take me back to my garden!")))))