X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=view.scm;h=155b71fbfa9ba5305cf4b5646bd82f8e24d938e1;hb=024ca5547c4fb058de8392f84dfb474547124fd8;hp=9544414efc18da4cf3f38485369e4c6dbfc3af9f;hpb=05f6c994d3eedfe738031b0fd244f3f3df4c7443;p=microbotany.git

diff --git a/view.scm b/view.scm
index 9544414..155b71f 100755
--- a/view.scm
+++ b/view.scm
@@ -2,10 +2,7 @@
 ;;
 
 (lambda (uri)
-  (import
-    (chicken condition)
-    (chicken file)
-    uri-common)
+  (import (chicken io))
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (serve-document-header (ext->mime "gmi"))
   (let ((query (uri-query uri)))
@@ -21,9 +18,7 @@
 
                 (print "# " user "'s garden\n")
                 (if (> visits 1)
-                    (begin
-                      (print "Welcome back, " user "!\n")
-                      (print "You have visited your garden " visits " times.\n"))
+                    (print "Welcome back, " user "!\n")
                     (begin
                       (print "Welcome to your new garden, " user "!\n"
                              "\n"