Changeset 32805 in project


Ignore:
Timestamp:
09/26/15 16:24:13 (4 years ago)
Author:
evhan
Message:

irc: Apply fix for #1161 (thanks to Kooda)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/irc/trunk/irc.scm

    r31224 r32805  
    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
Note: See TracChangeset for help on using the changeset viewer.