Oops, fixing onion netlayer for new read-message/write-message stuff

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)