(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.

diff --git a/libguile/net_db.c b/libguile/net_db.c
index d13c5f7..5395991 100644 (file)
--- 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);
     }
 }