diff options
author | Andy Wingo <wingo@pobox.com> | 2011-06-28 23:24:43 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-12-05 18:07:06 +0100 |
commit | 3972de7675bf771b403eaef97f0741280649b5ed (patch) | |
tree | 906a7425fea47c87b6504cc09f1360f2ae1ca289 /libguile/ports.h | |
parent | 13dd74c8eae595889df6f570007b5f50b78073ce (diff) | |
download | guile-3972de7675bf771b403eaef97f0741280649b5ed.tar.gz |
add current-warning-port
* libguile/ports.h:
* libguile/ports.c (scm_current_warning_port)
(scm_set_current_warning_port): New functions, wrapping the Scheme
parameter.
* module/ice-9/boot-9.scm (current-warning-port): New parameter,
defining a port for warnings.
Diffstat (limited to 'libguile/ports.h')
-rw-r--r-- | libguile/ports.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/ports.h b/libguile/ports.h index 6a669b660..fcf1424cc 100644 --- a/libguile/ports.h +++ b/libguile/ports.h @@ -247,10 +247,12 @@ SCM_API SCM scm_drain_input (SCM port); SCM_API SCM scm_current_input_port (void); SCM_API SCM scm_current_output_port (void); SCM_API SCM scm_current_error_port (void); +SCM_API SCM scm_current_warning_port (void); SCM_API SCM scm_current_load_port (void); SCM_API SCM scm_set_current_input_port (SCM port); SCM_API SCM scm_set_current_output_port (SCM port); SCM_API SCM scm_set_current_error_port (SCM port); +SCM_API SCM scm_set_current_warning_port (SCM port); SCM_API void scm_dynwind_current_input_port (SCM port); SCM_API void scm_dynwind_current_output_port (SCM port); SCM_API void scm_dynwind_current_error_port (SCM port); |