summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
authorMatthew Wette <mwette@alumni.caltech.edu>2024-10-07 17:12:43 -0700
committerArne Babenhauserheide <arne_bab@web.de>2024-10-12 13:16:25 +0200
commit78e9e51065c23bc755e669295c46537a5e988791 (patch)
tree438dc5739fc5395a5ccee6cc67c0209902c8e17c /libguile/init.c
parent3d2fd7a262702b41e6f2578b96c00b6d28310590 (diff)
downloadguile-78e9e51065c23bc755e669295c46537a5e988791.tar.gz
Redirect diagnostice output messages (e.g., auto-compiling code) to a newly defined current-info-port, and add a command line argument `-I' to set the current-info-port to a void-port. * libguile/ports.c: add cur_infoport_fluid, scm_current_info_port, scm_set_current_info_port; define default current-info-port to stderr * libguile/load.c(compiled_is_fresh,load_thunk_from_path, do_try_auto_compile,scm_sys_warn_auto_compilation_enabled, scm_primitive_load_path): direct output messages to current_info_port; was current_warning_port * libguile/init.c(scm_init_standard_ports): set default current_info_port * module/ice-9/ports.scm: define current-info-port and set-current-info-port * module/ice-9/command-line.scm(*usage*,compile-shell-switches): add argument `-I' to silence diagnostics (or current-info-port to void-port) * doc/ref/guile-invoke.texi: add description for `-I' command argument
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 4a3903a2c..3df8c5ae5 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -200,6 +200,7 @@ scm_init_standard_ports ()
scm_set_current_error_port
(scm_standard_stream_to_port (2, isatty (2) ? "w0" : "w"));
scm_set_current_warning_port (scm_current_error_port ());
+ scm_set_current_info_port (scm_current_error_port ());
}