Renamed project once more.
authorTim Vaughan <tgvaughan@gmail.com>
Sun, 5 May 2019 09:39:38 +0000 (11:39 +0200)
committerTim Vaughan <tgvaughan@gmail.com>
Sun, 5 May 2019 09:39:38 +0000 (11:39 +0200)
README.md
burrower.scm [moved from burrow.scm with 97% similarity]

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.
 
similarity index 97%
rename from burrow.scm
rename to burrower.scm
index bb21e3a..867a289 100644 (file)
@@ -1,3 +1,6 @@
+;;; Imports
+
+;; Chicken 5
 (import (chicken tcp)
         (chicken port)
         (chicken io)
         (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!"))
 
 
                           (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)