summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d22cda7)
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 ()