mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Refine unwind-only exception message.

Browse source 
* libguile/throw.c (throw_without_pre_unwind): Refine warning message.
This commit is contained in:
Andy Wingo 2014-03-16 15:46:28 +01:00
parent 22806c244a
commit bf7e38643d
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/throw.c
View file

@ -184,8 +184,14 @@ throw_without_pre_unwind (SCM tag, SCM args)
continue; continue;
if (scm_is_true (scm_c_vector_ref (eh, 3))) if (scm_is_true (scm_c_vector_ref (eh, 3)))
fprintf (stderr, "\nWarning: unwind-only exception, perhaps due to " {
"stack overflow; not running pre-unwind handlers.\n"); char *key_chars;
key_chars = scm_to_locale_string (scm_symbol_to_string (tag));
fprintf (stderr, "Warning: Unwind-only `%s' exception; "
"skipping pre-unwind handler.\n", key_chars);
free (key_chars);
}
prompt_tag = scm_c_vector_ref (eh, 2); prompt_tag = scm_c_vector_ref (eh, 2);
if (scm_is_true (prompt_tag)) if (scm_is_true (prompt_tag))