stylistic changes
authorrekado <rekado@elephly.net>
Tue, 16 Dec 2014 07:43:00 +0000 (08:43 +0100)
committerrekado <rekado@elephly.net>
Tue, 16 Dec 2014 07:43:00 +0000 (08:43 +0100)
xmpp.scm

index 6a8c242..9f77f17 100644 (file)
--- 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)