X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scratchy.git;a=blobdiff_plain;f=scratchy.scm;fp=burrower.scm;h=df538b43a04cc8297389f2b2c78826ac56db6fa8;hp=ed5e98ffaebfc3d65e9e04e4beb25ba46f8624e9;hb=6ee5bee184695648170e6255ceea7c76cc31c581;hpb=2ee1c7c6da9e093c1722a0009c82dba5c14a0db0

diff --git a/burrower.scm b/scratchy.scm
similarity index 98%
rename from burrower.scm
rename to scratchy.scm
index ed5e98f..df538b4 100644
--- 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."))))