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)))))