From c83d1790093b95bbe6a487d00a865b40d76a3f44 Mon Sep 17 00:00:00 2001
From: Rob Browning <rlb@defaultvalue.org>
Date: Sat, 7 Aug 2004 03:36:38 +0000
Subject: [PATCH] (scm_resolv_error): don't put bad_value in the format string
 value arguments when calling scm_error since none of the format strings
 actually have escapes for the values.

---
 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 32ffb53b8..841e926a4 100644
--- a/libguile/net_db.c
+++ b/libguile/net_db.c
@@ -126,7 +126,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);
     }
 }