Allow #f for NULL host.

[doldaconnect.git] / lib / guile / dolcon-guile.c

diff --git a/lib/guile/dolcon-guile.c b/lib/guile/dolcon-guile.c
index 7a0f3e2..3ad21ff 100644 (file)
--- a/lib/guile/dolcon-guile.c
+++ b/lib/guile/dolcon-guile.c
@@ -30,7 +30,7 @@ static SCM scm_dc_connect(SCM host)
     
     if(fd >= 0)
        dc_disconnect();
-    if(host == SCM_UNDEFINED)
+    if((host == SCM_UNDEFINED) || (host == SCM_BOOL_F))
     {
        chost = NULL;
     } else {