From fc1081c7da9c832ec247c4b175bbaf71bf48e534 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Fri, 6 Mar 2015 13:58:03 +0000 Subject: [PATCH] I had the advertise/observe pair the wrong way round for outbound connections. --- prospect/drivers/tcp.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/prospect/drivers/tcp.rkt b/prospect/drivers/tcp.rkt index d474a3c..191d81d 100644 --- a/prospect/drivers/tcp.rkt +++ b/prospect/drivers/tcp.rkt @@ -39,8 +39,8 @@ (list (spawn-demand-matcher (advertise (observe (tcp-channel ? (?! (tcp-listener ?)) ?))) (advertise (advertise (tcp-channel ? (?! (tcp-listener ?)) ?))) spawn-tcp-listener) - (spawn-demand-matcher (observe (tcp-channel (?! (tcp-handle ?)) (?! (tcp-address ? ?)) ?)) - (advertise (tcp-channel (?! (tcp-handle ?)) (?! (tcp-address ? ?)) ?)) + (spawn-demand-matcher (advertise (tcp-channel (?! (tcp-handle ?)) (?! (tcp-address ? ?)) ?)) + (observe (tcp-channel (?! (tcp-handle ?)) (?! (tcp-address ? ?)) ?)) spawn-tcp-connection))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;