(serve-selector selector config)))
(print "... served selector '" selector "'. Closing connection."))
(o (exn)
- (print-error-message o out-port)
(print-error-message o)
+ (print "Invalid selector.")
(print "Error while attempting to serve selector " selector "."))))
(begin
(print "Connection from blacklisted IP. Closing.")