(print "Gopher server listening on port " (config-port config) " ...")
(let ((listener (tcp-listen (config-port config))))
(let server-loop ()
(print "Gopher server listening on port " (config-port config) " ...")
(let ((listener (tcp-listen (config-port config))))
(let server-loop ()
(error "Index file not found."))))
(define (serve-text-file selector config)
(let ((filename (make-pathname (config-root-dir config) selector)))
(if (legal-filename? filename config)
(error "Index file not found."))))
(define (serve-text-file selector config)
(let ((filename (make-pathname (config-root-dir config) selector)))
(if (legal-filename? filename config)