Ticket #139: irc-receiver.patch

irc/trunk/irc.scm

@@ -302 +302 @@
                     (or (not receiver)
                         (and (pair? params)
                              (if (procedure? receiver)
-                                 (receiver (car params)
-                                 (string-search receiver (car params))))))
+                                 (receiver (car params))
+                                 (string-search receiver (car params)))))
                     (or (not body)
                         (if (procedure? body)
                             (body msg)