diff options
Diffstat (limited to 'libguile/init.c')
-rw-r--r-- | libguile/init.c | 1 |
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 ()); } |