From 63ce14e7764dd77da306aef2980b0a7dfcfe7d69 Mon Sep 17 00:00:00 2001
From: Rob Browning <rlb@defaultvalue.org>
Date: Sat, 7 Aug 2004 03:48:17 +0000
Subject: [PATCH] (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.

---
 libguile/net_db.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
     }
 }