summaryrefslogtreecommitdiff
path: root/tests/testweb/spiffy-access
blob: a4ffff5abb1071f5a97bf41ab1cecd31f8314d62 (plain)
1
2
3
4
(lambda (continue)
  (let ((counter (with-input-from-file "root-counter" read)))
    (with-output-to-file "root-counter" (lambda () (write (add1 counter)))))
  (continue))