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

* throw.c (handler_message): Print message on current error port

Browse source 
instead of default error port.  (Thanks to Maciej Stachowiak.)
This commit is contained in:
Mikael Djurfeldt 1998-03-28 20:26:17 +00:00
parent abf06c1273
commit 701191ba9c
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/throw.c
View file

@ -474,7 +474,7 @@ static void
handler_message (void *handler_data, SCM tag, SCM args)
{
char *prog_name = (char *) handler_data;
SCM p = scm_def_errp;
SCM p = scm_cur_errp;
if (! prog_name)
prog_name = "guile";