Ticket #1150: irc.patch

File irc.patch, 727 bytes (added by acharlton, 7 years ago)
  • irc.scm

    diff -du irc/irc.scm irc-new/irc.scm
    old new  
    181181         (parse-reply (read-input con) con) ) ) )
    182182
    183183(define (read-input con)
    184   (let ((input (read-line (irc:connection-in con))))
    185     (and-let* ((log (irc:connection-log-traffic con)))
    186       (fprintf log "~a < ~a~%~!" (seconds->string (current-seconds)) input) )
    187     input))
     184  (parameterize ((tcp-read-timeout (irc:connection-reconnect-timeout con)))
     185    (let ((input (read-line (irc:connection-in con))))
     186      (and-let* ((log (irc:connection-log-traffic con)))
     187        (fprintf log "~a < ~a~%~!" (seconds->string (current-seconds)) input) )
     188      input)))