The Lambda Lab
/
projects
/
microbotany.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Removed imports.
[microbotany.git]
/
directory.gmi
diff --git
a/directory.gmi
b/directory.gmi
index
fe7b2f8
..
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))
@@
-26,7
+20,7
@@
(lambda (garden-file)
(let ((g (with-input-from-file garden-file read)))
(update-garden! g)
(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))))
(let ((fields (list (garden-prop 'user g)
(seconds->string (garden-prop 'created g))
(garden-stage g))))