X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=directory.gmi;h=fb6a77cd46223e6b90c0b6750d4596b0e247d342;hb=7eb64931b42ef14d7d45b859b97f6176ccc4d46d;hp=fe7b2f8decf1d3a880f5ee6396a8c30390b54a53;hpb=9bb088cdb18f58aa9f4c1f14d2c4709d6ba5701b;p=microbotany.git

diff --git a/directory.gmi b/directory.gmi
index fe7b2f8..fb6a77c 100755
--- a/directory.gmi
+++ b/directory.gmi
@@ -2,12 +2,6 @@
 
 ```
 ,(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))
@@ -26,7 +20,7 @@
             (lambda (garden-file)
               (let ((g (with-input-from-file garden-file read)))
                 (update-garden! g)
-                (with-output-to-file garden-file (lambda () write g))
+                (with-output-to-file garden-file (lambda () (write g)))
                 (let ((fields (list (garden-prop 'user g)
                                     (seconds->string (garden-prop 'created g))
                                     (garden-stage g))))