Source of "empty log" problems.
(define-record config root-dir host port display-footer)
(define (run-server config)
(define-record config root-dir host port display-footer)
(define (run-server config)
+ (set-buffering-mode! (current-output-port) #:line)
(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 ()