return arguments to 'halt directly
authorrekado <rekado@elephly.net>
Tue, 16 Dec 2014 17:34:19 +0000 (18:34 +0100)
committerrekado <rekado@elephly.net>
Tue, 16 Dec 2014 17:34:19 +0000 (18:34 +0100)
xmpp.scm

index b458b546644cafb647cba9d45a741241e63b75ae..bade3c175e3baba5a56fc1c77e58b8ac97bfd314 100644 (file)
--- a/xmpp.scm
+++ b/xmpp.scm
@@ -60,9 +60,7 @@ Then try all other handlers."
       (lambda ()
         (when id-handler (id-handler stanza))
         (try-stanza-handlers stanza))
-      (lambda (key . args)
-        ;; return whatever argument was passed to 'halt
-        (car args)))))
+      (lambda (key . args) args))))
 
 (define* (run-handler-loop port #:optional (log-port #t))
   "Repeatedly check for incoming stanzas.  When a stanza handler