Tidying up some menu items.
[microbotany.git] / delete-confirm.scm
index 04459c7..3924c35 100755 (executable)
         (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!")))))