1 files changed, 3 insertions, 2 deletions
diff --git a/xmpp.scm b/xmpp.scm
index 6a8c242..9f77f17 100644
--- a/xmpp.scm
+++ b/xmpp.scm
@@ -53,10 +53,11 @@ is unregistered."
        *stanza-handlers*))
 
 (define (handle-stanza stanza)
-  "Check if handler for this stanza id exists and run it if it exists.  Then try all other handlers."
+  "Check if handler for this stanza id exists and run it if it exists.
+Then try all other handlers."
   (let ((id-handler (hash-ref *stanza-id-handlers* (stanza-id stanza))))
     (catch 'halt
-      (lambda ()
+      (lambda _
         (when id-handler (id-handler stanza))
         (try-stanza-handlers stanza))
       (lambda (key . args)