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 /module/system | |
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 'module/system')
-rw-r--r-- | module/system/base/message.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/module/system/base/message.scm b/module/system/base/message.scm index aed35021c..75e14ea1e 100644 --- a/module/system/base/message.scm +++ b/module/system/base/message.scm @@ -54,11 +54,13 @@ ;;; Warnings ;;; +;; This name existed before %current-warning-port was introduced, but +;; otherwise it is a deprecated binding. (define *current-warning-port* - ;; The port where warnings are sent. - (make-fluid (current-error-port))) - -(fluid-set! *current-warning-port* (current-error-port)) + ;; Can't play the identifier-syntax deprecation game in Guile 2.0, as + ;; other modules might depend on this being a normal binding and not a + ;; syntax binding. + (parameter-fluid current-warning-port)) (define *current-warning-prefix* ;; Prefix string when emitting a warning. @@ -194,7 +196,7 @@ "Emit a warning of type TYPE for source location LOCATION (a source property alist) using the data in ARGS." (let ((wt (lookup-warning-type type)) - (port (fluid-ref *current-warning-port*))) + (port (current-warning-port))) (if (warning-type? wt) (apply (warning-type-printer wt) port (location-string location) |