9 (for-each eval (with-input-from-file "garden.scm" read-list))
10 (let ((query (uri-query uri)))
13 (print "=> register.scm Please register first."))
14 (let ((hash (symbol->string (caar query))))
16 (let* ((g (with-input-from-file (make-pathname "accounts" hash) read)))
18 (with-output-to-file (make-pathname "accounts" hash)
21 (redirect-permanent (update-uri uri
22 path: '(/ "microbotany" "view.scm")
23 query: `((,hash . #t)))))
25 (print "This garden no longer exists.\n\n"
26 "=> register.scm Register to create another.")))))))