X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scratchy.git;a=blobdiff_plain;f=examples%2Fsign-guestbook.scm;fp=examples%2Fsign-guestbook.scm;h=6a91bbf861ed06fd20399fddb23ebec52ad2a8db;hp=0000000000000000000000000000000000000000;hb=5f40dae3f5566a9d4068b32d0615367c66b49b07;hpb=307887439e723047cab1bc5a2572cb89e2f06630

diff --git a/examples/sign-guestbook.scm b/examples/sign-guestbook.scm
new file mode 100644
index 0000000..6a91bbf
--- /dev/null
+++ b/examples/sign-guestbook.scm
@@ -0,0 +1,8 @@
+;; Very simple guestbook
+
+(lambda (arg)
+  (with-output-to-file "guestbook_entries.txt"
+    (lambda ()
+      (print arg))
+    #:append)
+  (list "Thanks for signing my guestbook!"))