mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 00:10:21 +02:00
Code Activity

(scm_ithrow): more refined error message: print symbols

Browse source 
too.
This commit is contained in:
Han-Wen Nienhuys 2007-01-18 12:34:24 +00:00
parent 6d6a3fe260
commit 937038e823
2 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2007-01-18 Han-Wen Nienhuys <hanwen@lilypond.org>
* throw.c (scm_ithrow): more refined error message: print symbols
too.
2007-01-16 Kevin Ryde <user42@zip.com.au> 2007-01-16 Kevin Ryde <user42@zip.com.au>
* feature.c, feature.h (scm_set_program_arguments_scm): New function, * feature.c, feature.h (scm_set_program_arguments_scm): New function,

13
libguile/throw.c
View file

@ -711,9 +711,16 @@ scm_ithrow (SCM key, SCM args, int noreturn SCM_UNUSED)
for (; scm_is_pair (s); s = scm_cdr (s), i++) for (; scm_is_pair (s); s = scm_cdr (s), i++)
if (scm_is_string (scm_car (s))) {
fprintf (stderr, "argument %d: %s\n", i, scm_i_string_chars (scm_car (s))); char const *str = NULL;
if (scm_is_string (scm_car (s)))
str = scm_i_string_chars (scm_car (s));
else if (scm_is_symbol (scm_car (s)))
str = scm_i_symbol_chars (scm_car (s));
if (str != NULL)
fprintf (stderr, "argument %d: %s\n", i, str);
}
abort (); abort ();
} }