summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-03-28 20:26:17 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-03-28 20:26:17 +0000
commit701191ba9c254eb367fbf2f5e4c8df9f3320b0f4 (patch)
treec8852f40e9ce2ebc052c0a915651f969e68dcde7
parentabf06c1273bec1b7baf140c7b62d0c81ef10a8a5 (diff)
downloadguile-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/ChangeLog5
-rw-r--r--libguile/throw.c2
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";