set keep alive on redis socket

carld · Apr 11, 2012 · f6c8632 · f6c8632
1 parent b49986c
commit f6c8632
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/redis-client.scm b/redis-client.scm
@@ -156,7 +156,8 @@
   (set! *redis-socket* 
     (socket-connect/ai 
       (address-information host port family: af/inet)))
-  (define-values (in-port out-port) 
+  (set! (so-keep-alive? *redis-socket*) #t)
+  (define-values (in-port out-port)
                  (socket-i/o-ports *redis-socket*))
   (redis-in-port in-port)
   (redis-out-port out-port)