X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_server.scm;fp=src%2Fgacela_server.scm;h=8c45b20ecdb684f95f3e18fd3e0994ff16329154;hb=91e03880066280940b29a89eae28510e124e58cb;hp=fbd2b2e1e1204559fffc8a3cf8757025f6d8fa92;hpb=5e8896b40426c515f4eb64e0f152c896ddd2d73d;p=gacela.git diff --git a/src/gacela_server.scm b/src/gacela_server.scm index fbd2b2e..8c45b20 100644 --- a/src/gacela_server.scm +++ b/src/gacela_server.scm @@ -92,7 +92,5 @@ (force-output send-channel)))) -(define connect-to-server #f) - (define (connect-to-server client-socket hostname port) (connect client-socket AF_INET (car (hostent:addr-list (gethost hostname))) port))