summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/init.c')
-rw-r--r--libguile/init.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/init.c b/libguile/init.c
index a5630d1f0..adab2b5d6 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -223,6 +223,7 @@ scm_init_standard_ports ()
(scm_standard_stream_to_port (1, isatty (1) ? "w0" : "w"));
scm_set_current_error_port
(scm_standard_stream_to_port (2, isatty (2) ? "w0" : "w"));
+ scm_set_current_warning_port (scm_current_error_port ());
}