once.scm « testweb « tests - spiffy - Spiffy is a small web server written in pure Scheme.

summary refs log tree commit diff

path: root/tests/testweb/once.scm

blob: f7259036c16428a4d751a94e586fdb05285d73f4 (plain)

1
2

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