From f15a9ee63a18cea4723db1458e5558d8b9992d42 Mon Sep 17 00:00:00 2001 From: rekado Date: Tue, 16 Dec 2014 18:33:23 +0100 Subject: use () for thunk, _ for when we don't care --- xmpp.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/xmpp.scm b/xmpp.scm index 70b92a0..b458b54 100644 --- a/xmpp.scm +++ b/xmpp.scm @@ -57,7 +57,7 @@ is unregistered." 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) -- cgit v1.2.3