return #f for ignored stanza handlers
authorrekado <rekado@elephly.net>
Thu, 11 Dec 2014 17:59:16 +0000 (18:59 +0100)
committerrekado <rekado@elephly.net>
Thu, 11 Dec 2014 17:59:16 +0000 (18:59 +0100)
xmpp.scm

index 91d86625a97b9763aafff3f1e7bc2f7c126c651b..1e91713035161e94bf2976c843e798063d68cd91 100644 (file)
--- 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)