Changeset 31224 in project


Ignore:
Timestamp:
08/17/14 21:13:32 (6 years ago)
Author:
felix winkelmann
Message:

irc 1.9.8: applied bugfix by Alex Charlton

Location:
release/4/irc
Files:
4 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/irc/tags/1.9.8/irc.scm

    r28267 r31224  
    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)))
    188189
    189190(define-record irc:message
  • release/4/irc/tags/1.9.8/irc.setup

    r28267 r31224  
    66(install-extension
    77 'irc
    8  '("irc.so" "irc.import.so")
    9  '((version 1.9.7)))
     8 '("irc.so" "irc.import.so") )
     9
  • release/4/irc/trunk/irc.scm

    r28267 r31224  
    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)))
    188189
    189190(define-record irc:message
  • release/4/irc/trunk/irc.setup

    r28267 r31224  
    66(install-extension
    77 'irc
    8  '("irc.so" "irc.import.so")
    9  '((version 1.9.7)))
     8 '("irc.so" "irc.import.so") )
     9
Note: See TracChangeset for help on using the changeset viewer.