Removed code specific to chicken 4.x.

[scratchy.git] / burrower.scm

diff --git a/burrower.scm b/burrower.scm
index f9604a7..9db8599 100644 (file)
--- 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)