From b2d20af884f494fc5178659663ff7d52046fe179 Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Thu, 11 Dec 2014 18:59:16 +0100
Subject: return #f for ignored stanza handlers

---
 xmpp.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/xmpp.scm b/xmpp.scm
index 91d8662..1e91713 100644
--- a/xmpp.scm
+++ b/xmpp.scm
@@ -40,8 +40,9 @@ is unregistered."
   (map (lambda (pair)
          (let ((predicate (car pair))
                (handler   (cdr pair)))
-           (when (predicate stanza)
-             (handler stanza))))
+           (if (predicate stanza)
+               (handler stanza)
+               #f)))
        *stanza-handlers*))
 
 (define (handle-stanza stanza)
-- 
cgit v1.2.3