diff options
author | Matthew Wette <mwette@alumni.caltech.edu> | 2024-10-07 17:12:43 -0700 |
---|---|---|
committer | Arne Babenhauserheide <arne_bab@web.de> | 2024-10-12 13:16:25 +0200 |
commit | 78e9e51065c23bc755e669295c46537a5e988791 (patch) | |
tree | 438dc5739fc5395a5ccee6cc67c0209902c8e17c /libguile/init.c | |
parent | 3d2fd7a262702b41e6f2578b96c00b6d28310590 (diff) | |
download | guile-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.c | 1 |
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 ()); } |