使用CHICKEN Scheme操作TCP sockets

手册： http://wiki.call-cc.org/man/4/Unit%20tcp

示例代码

; client.scm
 (declare (uses tcp))
 (define l (tcp-listen 4242))
 (define-values (i o) (tcp-accept l))
 (write-line "Hello!" o)
 (print (read-line i))
 (close-input-port i)
 (close-output-port o)

; server.scm
 (declare (uses tcp))
 (define l (tcp-listen 4242))
 (define-values (i o) (tcp-accept l))
 (write-line "Hello!" o)
 (print (read-line i))
 (close-input-port i)
 (close-output-port o)

% csc server.scm
% csc client.scm
% ./server &
% ./client

可，结果呢……

Error: segmentation violation

    Call history:

    server.scm:2: tcp-listen      
    server.scm:3: ##sys#call-with-values      
    server.scm:3: tcp-accept        <--

Error: segmentation violation

    Call history:

    client.scm:2: ##sys#call-with-values      
    client.scm:2: tcp-connect       <--
[1]+  Exit 70                 ./server

（未完）