With new virtual-topic semantics, no longer need the non-wild checks
This commit is contained in:
parent
3f8b7313db
commit
23a8237a9a
|
@ -56,11 +56,7 @@
|
||||||
(define (quit-proc) (send h depart))
|
(define (quit-proc) (send h depart))
|
||||||
(let loop ()
|
(let loop ()
|
||||||
(match (send h listen)
|
(match (send h listen)
|
||||||
[(arrived
|
[(arrived (topic 'publisher (and inbound-stream (tcp-stream _ (== server-address))) #f))
|
||||||
(topic 'publisher
|
|
||||||
(and inbound-stream (tcp-stream (tcp-address (? non-wild?) (? non-wild?))
|
|
||||||
(== server-address)))
|
|
||||||
#f))
|
|
||||||
(write `(starting session for ,inbound-stream)) (newline)
|
(write `(starting session for ,inbound-stream)) (newline)
|
||||||
(standard-thread (lambda () (session inbound-stream quit-proc)))
|
(standard-thread (lambda () (session inbound-stream quit-proc)))
|
||||||
(loop)]
|
(loop)]
|
||||||
|
|
Loading…
Reference in New Issue