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 7a0f3e21b423fddd5b2f0c752020575f2b0b7335..3ad21ff356ff16cb8e5684b6f6ee6c2f7f07093e 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 {