mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 09:40:25 +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

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
1998-03-28 Mikael Djurfeldt <mdj@nada.kth.se>
* throw.c (handler_message): Print message on current error port
instead of default error port. (Thanks to Maciej Stachowiak.)
Mon Mar 2 21:35:02 1998 Gary Houston <ghouston@actrix.gen.nz> Mon Mar 2 21:35:02 1998 Gary Houston <ghouston@actrix.gen.nz>
* ports.c (scm_add_to_port_table): allocate in units of * ports.c (scm_add_to_port_table): allocate in units of

2
libguile/throw.c
View file

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