Allow #f for NULL host.

git-svn-id: svn+ssh://svn.dolda2000.com/srv/svn/repos/src/doldaconnect@891 959494ce-11ee-0310-bf91-de5d638817bd

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 {