Renamed project once more.

diff --git a/README.md b/README.md
index 11d1774..cd12341 100644 (file)
--- a/README.md
+++ b/README.md
@@ -1,5 +1,5 @@
-Burrow
-======
+Burrower
+========

 
 Very simple gopher server written in Chicken Scheme.
 
 
 Very simple gopher server written in Chicken Scheme.
 

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)
 (import (chicken tcp)
         (chicken port)
         (chicken io)


@@ -10,16 +13,19 @@
         (chicken process-context)
         srfi-1 srfi-13 matchable)
 
         (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")
 
 ;;; 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"
   (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!"))
 
 
         "Powered by Chicken Scheme!"))
 
 


@@ -111,7 +117,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 burrow-footer)))
+              (serve-info-records burrower-footer)))

         (error "Index file not found."))))
   
 (define (serve-text-file selector config)
         (error "Index file not found."))))
   
 (define (serve-text-file selector config)