summaryrefslogtreecommitdiff
path: root/libguile/deprecation.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-12-05 15:43:18 +0100
committerAndy Wingo <wingo@pobox.com>2011-12-05 18:11:24 +0100
commit2c27dd57c7ec4a8168e2668aed380594a99dda8f (patch)
treea0b865a254c2f5933af273ee34a7dbe02ff647d4 /libguile/deprecation.c
parent3972de7675bf771b403eaef97f0741280649b5ed (diff)
downloadguile-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.c4
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 ());
}
}
}