return #f for ignored stanza handlers

1 files 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)