From da757c6814294281b59c8a307b68d24e9d7a01b5 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 14 Jul 2016 16:18:47 +0200 Subject: 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. --- libguile/init.c | 1 + 1 file changed, 1 insertion(+) (limited to 'libguile/init.c') 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 ()); } -- cgit v1.2.3