X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scratchy.git;a=blobdiff_plain;f=burrower.scm;h=9db8599bd045217aa482d11b3ac0f72c711d363e;hp=f9604a7ec6baa3c6a0c1dc67d83c1bd65a0440ed;hb=6948e45263ad950facabbd856c13759c8732fd93;hpb=307887439e723047cab1bc5a2572cb89e2f06630

diff --git a/burrower.scm b/burrower.scm
index f9604a7..9db8599 100644
--- a/burrower.scm
+++ b/burrower.scm
@@ -1,6 +1,10 @@
+;;; Burrower gopher server
+;;
+;; Requires Chicken 5.0.0.
+;;
+
 ;;; Imports
 
-;; Chicken 5
 (import (chicken tcp)
         (chicken port)
         (chicken io)
@@ -13,9 +17,6 @@
         (chicken process-context)
         srfi-1 srfi-13 matchable)
 
-;; Chicken 4
-;; (use srfi-1 srfi-13 tcp posix matchable)
-
 ;;; Global constants
 
 (define gopher-index-filename "index")
@@ -329,9 +330,9 @@
                     (config-port-set! config (string->number (caddr args))))
                 (run-server config)))))))
 
-;; (main)
+(main)
 
-(define (test)
-  (run-server (make-config "gopher-root" "localhost" 70 #t)))
+;; (define (test)
+;;   (run-server (make-config "gopher-root" "localhost" 70 #t)))
 
-(test)
+;; (test)