Changed name to Scratchy.

[scratchy.git] / scratchy.scm

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.
 ;;
 ;;
 ;; Requires Chicken 5.0.0.
 ;;


@@ -20,12 +20,12 @@
 
 ;;; Global constants
 
 
 ;;; Global constants
 

-(define burrower-version "1.0.0")
+(define scratchy-version "1.0.0")

 
 

-(define burrower-footer
+(define scratchy-footer

   (conc "\n"
         "--------------------------------------------------\n"
   (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")
         "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 (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."))))
   
           (print ".\r"))
         (error "No legal index file not found."))))