[Chicken-users] process-fork weirdness

[Ruhi Bloodworth]

Hi,

I'm attempting to implement the tcp-echo benchmark. When I run the
following program:

(require 'posix 'tcp)
(define +port+ 4441)
(define (server)
  (define-values (i o) (tcp-accept (tcp-listen +port+)))
  (let loop ()
    (write-char (read-char i) o)
    (unless (eof-object? (peek-char i) )
            (loop))))

(define (client)
  (define-values (i o) (tcp-connect "localhost" +port+))
  (write-line "Good Bye!" o)
  (print (read-line i))
  (close-input-port i)
  (close-output-port o))


(process-fork client)
(server)

I get
; loading echo.scm ...
; loading library posix ...
; loading library tcp ...
Error: can not write to socket
4
"Good Bye!"


and the program does not terminate. changing the last two lines to
(process-fork server)
(client)
fixes the problem.

; loading echo.scm ...
; loading library posix ...
; loading library tcp ...
Good Bye!
#;1>


Any idea why?

Regards,
Ruhi Bloodworth