diff --git a/goblins/ocapn/netlayer/onion.rkt b/goblins/ocapn/netlayer/onion.rkt index 44912ad..3ad1b8f 100644 --- a/goblins/ocapn/netlayer/onion.rkt +++ b/goblins/ocapn/netlayer/onion.rkt @@ -173,7 +173,9 @@ (define (handle-ocapn-sock-listen) (define-values (ip op) (unix-socket-accept ocapn-sock-listener)) - (<-np-extern conn-establisher ip op #t)) + (define-values (read-message write-message) + (read-write-procs ip op)) + (<-np-extern conn-establisher read-message write-message #t)) (syscaller-free-thread (lambda () (dynamic-wind @@ -221,7 +223,9 @@ (define-values (ip op) (unix-socket-connect tor-socks-path)) (onion-socks5-setup! ip op (string-append address ".onion")) - (<- conn-establisher ip op #f))) + (define-values (read-message write-message) + (read-write-procs ip op)) + (<- conn-establisher read-message write-message #f))) (define start-conn (connect-vat 'spawn ^start-conn)) (<- start-conn)])])) pre-setup-beh)