From 4baffb335c037973f3748b8e98bd74b61fc82ec8 Mon Sep 17 00:00:00 2001
From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 5 May 2019 11:39:38 +0200
Subject: [PATCH] Renamed project once more.

---
 README.md                  |  4 ++--
 burrow.scm => burrower.scm | 14 ++++++++++----
 2 files changed, 12 insertions(+), 6 deletions(-)
 rename burrow.scm => burrower.scm (97%)

diff --git a/README.md b/README.md
index 11d1774..cd12341 100644
--- a/README.md
+++ b/README.md
@@ -1,5 +1,5 @@
-Burrow
-======
+Burrower
+========
 
 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
--- 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)
-- 
2.20.1