From 9f9431cb29e958c88c3b3f39963ce72faaf47be0 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 21 Jun 2014 06:51:06 -0400 Subject: [PATCH] Closer to correct patterns etc for outbound connections --- tcp.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/tcp.rkt b/tcp.rkt index e28eb55..febfa6a 100644 --- a/tcp.rkt +++ b/tcp.rkt @@ -99,7 +99,12 @@ ;; the port number selects a substate therein. That's not ;; how TCP is defined however so we can't do that. (define appropriate-ip (set-first local-ips)) - ((spawn-relay local-addr) remote-addr (tcp-channel appropriate-ip port)))))) + (define appropriate-host (ip-address->hostname appropriate-ip)) + (match-define (tcp-address remote-host remote-port) remote-addr) + (define remote-ip (ip-string->ip-address remote-host)) + (list + ((spawn-relay local-addr) remote-addr (tcp-address appropriate-host port)) + (spawn-state-vector remote-ip remote-port appropriate-ip port)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Relay between kernel-level and user-level