From d7c0c26d886c35dc168cf07cf16b51c0594b21be Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 1 Sep 2007 16:54:26 +0000 Subject: [PATCH] Changes from arch/CVS synchronization --- ChangeLog | 4 ++++ NEWS | 1 + ice-9/ChangeLog | 5 +++++ ice-9/boot-9.scm | 4 ++-- 4 files changed, 12 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index fa59885d4..e36ac5652 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2007-09-01 Ludovic Courtès + + * NEWS: Mention duplicate binding warnings to stderr. + 2007-08-23 Ludovic Courtès * NEWS: Mention Solaris bug fixes. diff --git a/NEWS b/NEWS index bef894773..21a20a182 100644 --- a/NEWS +++ b/NEWS @@ -42,6 +42,7 @@ Changes in 1.8.3 (since 1.8.2) * Bugs fixed ** Expressions like "(set! 'x #t)" no longer yield a crash +** Warnings about duplicate bindings now go to stderr ** Build problems on Solaris fixed * Implementation improvements diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 1eea552f3..54ab41719 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +2007-09-01 Andy Wingo + + * boot-9.scm (duplicate-handlers)[warn, warn-override-core]: + Send warnings to `stderr' instead of `stdout'. + 2007-08-08 Ludovic Courtès * boot-9.scm (%record-type-check): Renamed to diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index dcff1694f..6ada33c68 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -3063,7 +3063,7 @@ module '(ice-9 q) '(make-q q-length))}." #f)) (define (warn module name int1 val1 int2 val2 var val) - (format #t + (format (current-error-port) "WARNING: ~A: `~A' imported from both ~A and ~A\n" (module-name module) name @@ -3085,7 +3085,7 @@ module '(ice-9 q) '(make-q q-length))}." (define (warn-override-core module name int1 val1 int2 val2 var val) (and (eq? int1 the-scm-module) (begin - (format #t + (format (current-error-port) "WARNING: ~A: imported module ~A overrides core binding `~A'\n" (module-name module) (module-name int2) -- 2.20.1