X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=view.scm;h=61926b3461dd84ede1a1ddcb532b1e07ff2273af;hb=refs%2Fheads%2Fmaster;hp=9544414efc18da4cf3f38485369e4c6dbfc3af9f;hpb=05f6c994d3eedfe738031b0fd244f3f3df4c7443;p=microbotany.git diff --git a/view.scm b/view.scm index 9544414..61926b3 100755 --- a/view.scm +++ b/view.scm @@ -2,10 +2,6 @@ ;; (lambda (uri) - (import - (chicken condition) - (chicken file) - uri-common) (for-each eval (with-input-from-file "garden.scm" read-list)) (serve-document-header (ext->mime "gmi")) (let ((query (uri-query uri))) @@ -21,9 +17,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"