mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

(scm_resolv_error): don't cause an exception while

Browse source 
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.
This commit is contained in:
Rob Browning 2004-08-07 03:48:17 +00:00
parent a00eaf19f8
commit 63ce14e776
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/net_db.c
View file

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