;;
(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)))
(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"