From d3d5f84bf6b4d915c564fafecab849aa5d118200 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 14 Mar 2003 14:04:36 +0000 Subject: [PATCH] . original commit: 8fa7e2b175c0c7a5ed6501c1fa175f62eefa5360 --- collects/net/tcp-redirect.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/net/tcp-redirect.ss b/collects/net/tcp-redirect.ss index b996411854..8328670a0b 100644 --- a/collects/net/tcp-redirect.ss +++ b/collects/net/tcp-redirect.ss @@ -2,7 +2,7 @@ (provide tcp-redirect) (require (lib "unitsig.ss") - (lib "channel.ss" "web-server") + (lib "async-channel.ss") (lib "etc.ss") "tcp-sig.ss") @@ -41,7 +41,7 @@ (define (tcp-accept tcp-listener) (cond [(pipe-listener? tcp-listener) - (let ([in-out (channel-get (pipe-listener-channel tcp-listener))]) + (let ([in-out (async-channel-get (pipe-listener-channel tcp-listener))]) (values (car in-out) (cdr in-out)))] [else (raw:tcp-accept tcp-listener)])) @@ -74,7 +74,7 @@ (redirect? port)) (let-values ([(to-in from-out) (make-pipe)] [(from-in to-out) (make-pipe)]) - (channel-put + (async-channel-put (pipe-listener-channel (hash-table-get port-table @@ -102,7 +102,7 @@ port (lambda () (if (redirect? port) - (let ([listener (make-pipe-listener port (create-channel))]) + (let ([listener (make-pipe-listener port (make-async-channel))]) (hash-table-put! port-table port listener) listener) (raw:tcp-listen port max-allow-wait reuse? hostname-string))))))