diff options
author | Rob Browning <rlb@defaultvalue.org> | 2004-08-07 03:48:17 +0000 |
---|---|---|
committer | Rob Browning <rlb@defaultvalue.org> | 2004-08-07 03:48:17 +0000 |
commit | 63ce14e7764dd77da306aef2980b0a7dfcfe7d69 (patch) | |
tree | b03b2811e7dbf09d6443770519eae81eb7912aec /libguile/net_db.c | |
parent | a00eaf19f8564aea89055f014153b6c56059d712 (diff) | |
download | guile-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.c | 2 |
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); } } |