Renamed project once more.

[scratchy.git] / burrower.scm

diff --git a/burrow.scm b/burrower.scm
similarity index 97%
rename from burrow.scm
rename to burrower.scm
index bb21e3a..867a289 100644 (file)
--- a/burrow.scm
+++ b/burrower.scm
@@ -1,3 +1,6 @@
+;;; Imports
+
+;; Chicken 5
 (import (chicken tcp)
         (chicken port)
         (chicken io)
@@ -10,16 +13,19 @@
         (chicken process-context)
         srfi-1 srfi-13 matchable)
 
+;; Chicken 4
+;; (use srfi-1 srfi-13 tcp posix matchable)
+
 ;;; Global constants
 
 (define gopher-index-file-name "index")
 
-(define burrow-version "1.0.0")
+(define burrower-version "1.0.0")
 
-(define burrow-footer
+(define burrower-footer
   (conc "\n"
         "--------------------------------------------------\n"
-        "Served by Burrow Gopher Server v" burrow-version "\n"
+        "This gopher hole was dug using Burrower v" burrower-version "\n"
         "Powered by Chicken Scheme!"))
 
 
@@ -111,7 +117,7 @@
                           (serve-info-records (read-line)))
                       (loop (peek-char)))))))
           (if (config-display-footer config)
-              (serve-info-records burrow-footer)))
+              (serve-info-records burrower-footer)))
         (error "Index file not found."))))
   
 (define (serve-text-file selector config)