From cb06d3d7fe9837e4e2708ba4e84fe9dd3f96660d Mon Sep 17 00:00:00 2001
From: rekado <rekado@elephly.net>
Date: Tue, 16 Dec 2014 18:34:19 +0100
Subject: return arguments to 'halt directly

---
 xmpp.scm | 4 +---
 1 file changed, 1 insertion(+), 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
-- 
cgit v1.2.3