; fuer scsh http://www.scsh.net

(define (socket-client)
  (with-errno-handler
   ((err data)
    ((errno/connrefused)
     (error "Connection refused"))
    (else (error err data)))
   (let ((socket (create-socket protocol-family/internet socket-type/stream))
	 (remote (internet-address->socket-address 
		  (car (host-info:addresses (host-info "localhost"))) 8005)))
     (connect-socket socket remote)
     (close-socket socket))))