获取连接客户端信息与tcp-接受？

Question

运行在端口12321上的回送服务器非常简单：

(define listener (tcp-listen 12321))
(define (mk-server)
  (let echo-server ()
    (define-values (in out) (tcp-accept listener))
    (thread (λ () (copy-port in out)
              (close-output-port out)))
    (echo-server)))

文档有很多用于tcp-的函数，但是它们都返回boolean?或tcp-listener?；我不知道哪个函数会给我连接客户端的IP地址。

超级简单套接字服务器示例教程还只提到处理客户端发送的数据。

上面示例中的端口in将拥有客户端发送的所有数据(标头等)，但不会包含关于客户端的元数据。

例如，在因子中，<server>对象的accept方法返回用于写入/读取的双向流和数据的元组：

T{ inet4 { host "127.0.0.1" } { port 36150 } }

Answer 1

其思想是使用端口in读取从客户端发送的数据，并且将写入out的数据自动发送到客户端。

如果我正确地阅读了这些文档，其中之一：

(tcp-addresses in)
(tcp-addresses out) 

应该给你客户地址。