Added example scripts.

[scratchy.git] / examples / sign-guestbook.scm

diff --git a/examples/sign-guestbook.scm b/examples/sign-guestbook.scm
new file mode 100644 (file)
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!"))