summaryrefslogtreecommitdiff
path: root/libguile/net_db.c
diff options
context:
space:
mode:
authorRob Browning <rlb@defaultvalue.org>2004-08-07 03:48:17 +0000
committerRob Browning <rlb@defaultvalue.org>2004-08-07 03:48:17 +0000
commit63ce14e7764dd77da306aef2980b0a7dfcfe7d69 (patch)
treeb03b2811e7dbf09d6443770519eae81eb7912aec /libguile/net_db.c
parenta00eaf19f8564aea89055f014153b6c56059d712 (diff)
downloadguile-63ce14e7764dd77da306aef2980b0a7dfcfe7d69.tar.gz
(scm_resolv_error): don't cause an exception while
trying to throw an exception -- call scm_misc_error with correct arguments. The previous arguments needed a format escape that wasn't in any of the format strings.
Diffstat (limited to 'libguile/net_db.c')
-rw-r--r--libguile/net_db.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/net_db.c b/libguile/net_db.c
index d13c5f763..539599189 100644
--- a/libguile/net_db.c
+++ b/libguile/net_db.c
@@ -110,7 +110,7 @@ static void scm_resolv_error (const char *subr, SCM bad_value)
#ifdef HAVE_HSTRERROR
errmsg = (const char *) hstrerror (h_errno);
#endif
- scm_error (key, subr, errmsg, scm_cons (bad_value, SCM_EOL), SCM_EOL);
+ scm_error (key, subr, errmsg, SCM_BOOL_F, SCM_EOL);
}
}