examples/sign-guestbook.scm

   1 ;; Very simple guestbook
   2
   3 (lambda (arg)
   4   (with-output-to-file "guestbook_entries.txt"
   5     (lambda ()
   6       (print arg))
   7     #:append)
   8   (list "Thanks for signing my guestbook!"))