Changed name to Scratchy.

diff --git a/README.md b/README.md
index 9cd128b..6003592 100644 (file)
--- a/README.md
+++ b/README.md
@@ -1,4 +1,4 @@
-Burrower
+Scratchy
 ========
 
 A simple gopher server written in Chicken Scheme.

diff --git a/burrower.scm b/scratchy.scm
similarity index 98%
rename from burrower.scm
rename to scratchy.scm
index ed5e98f..df538b4 100644 (file)
--- a/burrower.scm
+++ b/scratchy.scm
@@ -1,4 +1,4 @@
-;;; Burrower gopher server
+;;; Scratchy gopher server
 ;;
 ;; Requires Chicken 5.0.0.
 ;;
@@ -20,12 +20,12 @@
 
 ;;; Global constants
 
-(define burrower-version "1.0.0")
+(define scratchy-version "1.0.0")
 
-(define burrower-footer
+(define scratchy-footer
   (conc "\n"
         "--------------------------------------------------\n"
-        "This gopher hole was dug using Burrower v" burrower-version ".\n"
+        "This gopher hole was dug using Scratchy v" scratchy-version ".\n"
         "Powered by Chicken Scheme!"))
 
 (define gopher-index-filename "index")
@@ -159,7 +159,7 @@
                           (serve-info-records (read-line)))
                       (loop (peek-char)))))))
           (if (config-display-footer config)
-              (serve-info-records burrower-footer))
+              (serve-info-records scratchy-footer))
           (print ".\r"))
         (error "No legal index file not found."))))