From: fredrik <fredrik@959494ce-11ee-0310-bf91-de5d638817bd>
Date: Wed, 11 Apr 2007 11:07:38 +0000 (+0000)
Subject: Allow #f for NULL host.
X-Git-Tag: 0.3~46
X-Git-Url: http://git.dolda2000.com/gitweb/?p=doldaconnect.git;a=commitdiff_plain;h=0b8b2b53dc801ee5cba4998471ce282338220bbf

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
--- 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 {