tests/testweb/subdir/spiffy-access


1
2
3
4

(lambda (continue)
  (let ((counter (with-input-from-file "counter" read)))
    (with-output-to-file "counter" (lambda () (write (add1 counter)))))
  (continue))