Avoid double-wrapping arrival flow description

2012-03-10 23:24:28 -05:00 · 2012-03-10 23:24:28 -05:00 · 830c598aa4
parent beddc9d099
commit 830c598aa4
1 changed files with 1 additions and 1 deletions
--- 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)))))