(no commit message)

[gacela.git] / src / gacela_server.scm

diff --git a/src/gacela_server.scm b/src/gacela_server.scm
index 7052f14ec4a957bff12a2f7972349d9c9c5f019c..6349b6c316dafd0f397f5db327461f9b998b8dc1 100644 (file)
--- a/src/gacela_server.scm
+++ b/src/gacela_server.scm
@@ -93,7 +93,5 @@
 
 (define connect-to-server #f)
 
-(define (connect-to-server hostname port)
-  (let ((s (socket PF_INET SOCK_STREAM 0)))
-    (connect s AF_INET (car (hostent:addr-list (gethost hostname))) port)
-    s))
+(define (connect-to-server client-socket hostname port)
+  (connect client-socket AF_INET (car (hostent:addr-list (gethost hostname))) port))