diff options
author | Andy Wingo <wingo@pobox.com> | 2011-12-05 15:43:18 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-12-05 18:11:24 +0100 |
commit | 2c27dd57c7ec4a8168e2668aed380594a99dda8f (patch) | |
tree | a0b865a254c2f5933af273ee34a7dbe02ff647d4 /libguile/deprecation.c | |
parent | 3972de7675bf771b403eaef97f0741280649b5ed (diff) | |
download | guile-2c27dd57c7ec4a8168e2668aed380594a99dda8f.tar.gz |
warnings written to warning port
* libguile/deprecation.c (scm_c_issue_deprecation_warning):
* libguile/load.c (auto_compile_catch_handler):
(scm_sys_warn_auto_compilation_enabled, scm_primitive_load_path):
* module/ice-9/boot-9.scm (warn, %load-announce, duplicate-handlers)
(load-in-vicinity):
* module/system/base/message.scm (warning): Write to the warning port.
(*current-warning-port*): Alias the warning port.
Diffstat (limited to 'libguile/deprecation.c')
-rw-r--r-- | libguile/deprecation.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/deprecation.c b/libguile/deprecation.c index be5fffc90..08227071f 100644 --- a/libguile/deprecation.c +++ b/libguile/deprecation.c @@ -89,8 +89,8 @@ scm_c_issue_deprecation_warning (const char *msg) fprintf (stderr, "%s\n", msg); else { - scm_puts (msg, scm_current_error_port ()); - scm_newline (scm_current_error_port ()); + scm_puts (msg, scm_current_warning_port ()); + scm_newline (scm_current_warning_port ()); } } } |