diff options
author | Andy Wingo <wingo@pobox.com> | 2016-07-14 16:18:47 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-07-14 16:18:47 +0200 |
commit | da757c6814294281b59c8a307b68d24e9d7a01b5 (patch) | |
tree | 8d18db09613d44a61fe641b28cbda5689c1d1dd2 /libguile/init.c | |
parent | 1c98b7884819a295511d1e3245bf19873c3ae21e (diff) | |
download | guile-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.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 ()); } |