With new virtual-topic semantics, no longer need the non-wild checks

2012-03-13 15:05:00 -04:00 · 2012-03-13 15:05:00 -04:00 · 23a8237a9a
parent 3f8b7313db
commit 23a8237a9a
1 changed files with 1 additions and 5 deletions
--- 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)]