Ticket #1161: patch.diff

File patch.diff, 503 bytes (added by Kooda, 6 years ago)

fix

  • trunk/irc.scm

     
    342342   con
    343343   (let loop ([hs (irc:connection-handlers con)])
    344344     (cond [(null? hs) (error "undefined message handler" tag)]
    345            [(and (pair? hs) (eq? tag (caar hs))) (cdr hs)]
     345           [(and (pair? (car hs)) (eq? tag (caar hs))) (cdr hs)]
    346346           [else (cons (car hs) (loop (cdr hs)))] ) ) ) )
    347347
    348348(define (irc:message-receiver msg)