From 830c598aa417baabc1442d33f542409ec08f5dfc Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 10 Mar 2012 23:24:28 -0500 Subject: [PATCH] Avoid double-wrapping arrival flow description --- presence/conversation.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/presence/conversation.rkt b/presence/conversation.rkt index c242652..568afd1 100644 --- a/presence/conversation.rkt +++ b/presence/conversation.rkt @@ -253,7 +253,7 @@ (define (insert-flow! b1 topic1 flow topic2 b2) (define old-routes (hash-ref (binding-flows b1) flow set)) (when (set-empty? old-routes) - (enqueue-message! b1 (arrived (topic (topic-role topic2) flow)))) + (enqueue-message! b1 (arrived flow))) (set-binding-flows! b1 (hash-set (binding-flows b1) flow (set-add old-routes (route topic1 topic2 b2)))))