```
,(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))
(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))))