+ (write
+ (if params
+ (apply format (cons #f (cons fmt params)))
+ (format #f fmt))
+ send-channel))))
+ (force-output send-channel))))
+
+
+(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))