mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Include the source location in error messages for scripts.

Browse source 
* init.c (scm_boot_guile_1): Use scm_internal_lazy_catch, so the
stack is still there when we catch the error.
* throw.c (handler_message): If we are handling an error with a
message, then put together the proper arguments and call
scm_display_error, instead of scm_display_error_message.  That
displays source location, if it can find it.
This commit is contained in:
Jim Blandy 1998-10-08 20:11:59 +00:00
parent a8e0500932
commit f64056d105
2 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/init.c
View file

@ -509,8 +509,8 @@ scm_boot_guile_1 (base, closure)
if (!setjmp_val)
{
scm_set_program_arguments (closure->argc, closure->argv, 0);
scm_internal_catch (SCM_BOOL_T, invoke_main_func, closure,
scm_handle_by_message, 0);
scm_internal_lazy_catch (SCM_BOOL_T, invoke_main_func, closure,
scm_handle_by_message, 0);
}
scm_restore_signals ();