X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scratchy.git;a=blobdiff_plain;f=burrower.scm;fp=burrow.scm;h=867a289b87ec8c9aa8d03367a48d735fbeb75937;hp=bb21e3af7bfefdd730f553fdf0924dde87e02a0b;hb=4baffb335c037973f3748b8e98bd74b61fc82ec8;hpb=d3aae97b2523a554f31f7a6ff6468cf0ef6046d9

diff --git a/burrow.scm b/burrower.scm
similarity index 97%
rename from burrow.scm
rename to burrower.scm
index bb21e3a..867a289 100644
--- 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)