diff options
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/throw.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 10010513e..7d1ef03fa 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -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> * ports.c (scm_add_to_port_table): allocate in units of diff --git a/libguile/throw.c b/libguile/throw.c index b77d5e394..8664bee74 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -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"; |