Removed imports.

diff --git a/delete-confirm.scm b/delete-confirm.scm
index 8652d6b..aa08d61 100755 (executable)
--- a/delete-confirm.scm
+++ b/delete-confirm.scm
@@ -1,7 +1,6 @@
 ;; Account deletion confirmation
 
 (lambda (uri)
 ;; Account deletion confirmation
 
 (lambda (uri)

-  (import (chicken io))

   (let ((query (uri-query uri)))
     (if (null? query)
         (print "No account specified.")
   (let ((query (uri-query uri)))
     (if (null? query)
         (print "No account specified.")

diff --git a/delete.scm b/delete.scm
index 53050d1..ca52708 100755 (executable)
--- a/delete.scm
+++ b/delete.scm
@@ -1,7 +1,6 @@
 ;; Delete account
 
 (lambda (uri)
 ;; Delete account
 
 (lambda (uri)

-  (import (chicken io))

   (let ((query (uri-query uri)))
     (serve-document-header (ext->mime "gmi"))
     (if (null? query)
   (let ((query (uri-query uri)))
     (serve-document-header (ext->mime "gmi"))
     (if (null? query)

diff --git a/directory.gmi b/directory.gmi
index 77c87cc..fb6a77c 100755 (executable)
--- a/directory.gmi
+++ b/directory.gmi
@@ -2,12 +2,6 @@
 
 ```
 ,(eval (begin
 
 ```
 ,(eval (begin

-         (import (chicken io)
-                 (chicken file)
-                 (chicken string)
-                 (chicken pathname)
-                 (chicken time posix)
-                 srfi-1 srfi-13)

          (for-each eval (with-input-from-file "garden.scm" read-list))
          (define (pad-string o max-len)
            (let* ((s (->string o))
          (for-each eval (with-input-from-file "garden.scm" read-list))
          (define (pad-string o max-len)
            (let* ((s (->string o))

diff --git a/garden.scm b/garden.scm
index 3664612..bf6cc48 100644 (file)
--- a/garden.scm
+++ b/garden.scm
@@ -1,14 +1,3 @@
-(import (chicken random)
-        (chicken time)
-        (chicken time posix)
-        (chicken pathname)
-        (chicken io)
-        (chicken string)
-        (chicken format)
-        (chicken file)
-        (chicken condition)
-        srfi-1 uri-common simple-sha1)
-

 (define rand-double pseudo-random-real)
 
 (define (rand-weighted weights)
 (define rand-double pseudo-random-real)
 
 (define (rand-weighted weights)

diff --git a/help.scm b/help.scm
index 9388421..1a109e5 100755 (executable)
--- a/help.scm
+++ b/help.scm
@@ -1,5 +1,4 @@
 (lambda (uri)
 (lambda (uri)

-  (import (chicken io))

   (let ((query (uri-query uri)))
     (if (null? query)
         (print "No account specified.")
   (let ((query (uri-query uri)))
     (if (null? query)
         (print "No account specified.")

diff --git a/plant-new.scm b/plant-new.scm
index a0808d7..53fd285 100755 (executable)
--- a/plant-new.scm
+++ b/plant-new.scm
@@ -2,7 +2,6 @@
 ;;
 
 (lambda (uri)
 ;;
 
 (lambda (uri)

-  (import (chicken io))

   (for-each eval (with-input-from-file "garden.scm" read-list))
   (let ((query (uri-query uri)))
     (if (null? query)
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (let ((query (uri-query uri)))
     (if (null? query)

diff --git a/register.scm b/register.scm
index 5aa2e91..e6b46f2 100755 (executable)
--- a/register.scm
+++ b/register.scm
@@ -2,7 +2,6 @@
 ;;
 
 (lambda (uri)
 ;;
 
 (lambda (uri)

-  (import (chicken io))

   (for-each eval (with-input-from-file "garden.scm" read-list))
   (let ((query (uri-query uri)))
     (if (null? query)
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (let ((query (uri-query uri)))
     (if (null? query)

diff --git a/view.scm b/view.scm
index 155b71f..61926b3 100755 (executable)
--- a/view.scm
+++ b/view.scm
@@ -2,7 +2,6 @@
 ;;
 
 (lambda (uri)
 ;;
 
 (lambda (uri)

-  (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)))
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (serve-document-header (ext->mime "gmi"))
   (let ((query (uri-query uri)))

diff --git a/water.scm b/water.scm
index e2d83ff..cfefd10 100755 (executable)
--- a/water.scm
+++ b/water.scm
@@ -2,7 +2,6 @@
 ;;
 
 (lambda (uri)
 ;;
 
 (lambda (uri)

-  (import (chicken io))

   (for-each eval (with-input-from-file "garden.scm" read-list))
   (let ((query (uri-query uri)))
     (if (null? query)
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (let ((query (uri-query uri)))
     (if (null? query)