From 23a8237a9aad2d0f476cb23d3de2aa3450abf5b4 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 13 Mar 2012 15:05:00 -0400 Subject: [PATCH] With new virtual-topic semantics, no longer need the non-wild checks --- presence/test-conversation-socket.rkt | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/presence/test-conversation-socket.rkt b/presence/test-conversation-socket.rkt index bd34a75..be4e2dc 100644 --- a/presence/test-conversation-socket.rkt +++ b/presence/test-conversation-socket.rkt @@ -56,11 +56,7 @@ (define (quit-proc) (send h depart)) (let loop () (match (send h listen) - [(arrived - (topic 'publisher - (and inbound-stream (tcp-stream (tcp-address (? non-wild?) (? non-wild?)) - (== server-address))) - #f)) + [(arrived (topic 'publisher (and inbound-stream (tcp-stream _ (== server-address))) #f)) (write `(starting session for ,inbound-stream)) (newline) (standard-thread (lambda () (session inbound-stream quit-proc))) (loop)]