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