+ (8sync (handle-line
+ socket
+ ready-line
+ username))))
+ (_ #f)))
+ ;; I need to shut things down on EOF object
+ (cond
+ ((port-closed? socket)
+ (display "port closed time\n")
+ (port-remove-request socket))
+ ((and (char-ready? socket)
+ (eof-object? (peek-char socket)))
+ (display "port eof time\n")
+ (close socket)
+ (port-remove-request socket))))