diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-03-28 20:26:17 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-03-28 20:26:17 +0000 |
commit | 701191ba9c254eb367fbf2f5e4c8df9f3320b0f4 (patch) | |
tree | c8852f40e9ce2ebc052c0a915651f969e68dcde7 | |
parent | abf06c1273bec1b7baf140c7b62d0c81ef10a8a5 (diff) | |
download | guile-701191ba9c254eb367fbf2f5e4c8df9f3320b0f4.tar.gz |
* throw.c (handler_message): Print message on current error port
instead of default error port. (Thanks to Maciej Stachowiak.)
-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"; |