summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2016-07-14 16:18:47 +0200
committerAndy Wingo <wingo@pobox.com>2016-07-14 16:18:47 +0200
commitda757c6814294281b59c8a307b68d24e9d7a01b5 (patch)
tree8d18db09613d44a61fe641b28cbda5689c1d1dd2 /libguile/init.c
parent1c98b7884819a295511d1e3245bf19873c3ae21e (diff)
downloadguile-da757c6814294281b59c8a307b68d24e9d7a01b5.tar.gz
Refactor implementation of current-warning-port
* module/ice-9/boot-9.scm (current-warning-port): * libguile/init.c (scm_init_standard_ports): * libguile/ports.c (cur_warnport_fluid, scm_current_warning_port) (scm_set_current_warning_port, scm_init_ports): Define the warning port in the same way as the error/output/input ports, with a fluid that doesn't require calling out to Scheme.
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 ());
}