return arguments to 'halt directly

1 files changed, 1 insertions, 3 deletions

diff --git a/xmpp.scm b/xmpp.scm
index b458b54..bade3c1 100644
--- 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