Ticket #1150: irc.patch

irc.scm

@@ -181 +181 @@
          (parse-reply (read-input con) con) ) ) )
 
 (define (read-input con)
-  (let ((input (read-line (irc:connection-in con))))
-    (and-let* ((log (irc:connection-log-traffic con)))
-      (fprintf log "~a < ~a~%~!" (seconds->string (current-seconds)) input) )
-    input))
+  (parameterize ((tcp-read-timeout (irc:connection-reconnect-timeout con)))
+    (let ((input (read-line (irc:connection-in con))))
+      (and-let* ((log (irc:connection-log-traffic con)))
+        (fprintf log "~a < ~a~%~!" (seconds->string (current-seconds)) input) )
+      input)))