root-dir host port display-footer user group blacklist blacklist-resp)
(define (run-server config)
- ;; (set-buffering-mode! (current-output-port) #:line)
+ (set-buffering-mode! (current-output-port) #:line)
(let ((listener (tcp-listen (config-port config) 10 "::")))
(print "Gopher server listening on port " (config-port config) " ...")
(drop-privs config)