(define (connect-to-server client-socket hostname port)
(connect client-socket AF_INET (car (hostent:addr-list (gethost hostname))) port))
(define (connect-to-server client-socket hostname port)
(connect client-socket AF_INET (car (hostent:addr-list (gethost hostname))) port))