1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00

Changes from arch/CVS synchronization

This commit is contained in:
Ludovic Courtès 2007-09-01 17:11:00 +00:00
parent 5da403801c
commit 1a1fb64308
4 changed files with 12 additions and 2 deletions

View file

@ -1,3 +1,7 @@
2007-09-01 Ludovic Courtès <ludo@gnu.org>
* NEWS: Mention duplicate binding warnings to stderr.
2007-08-23 Ludovic Courtès <ludo@gnu.org> 2007-08-23 Ludovic Courtès <ludo@gnu.org>
* NEWS: Mention Solaris bug fixes. * NEWS: Mention Solaris bug fixes.

1
NEWS
View file

@ -15,6 +15,7 @@ Changes in 1.8.3 (since 1.8.2)
* Bugs fixed * Bugs fixed
** Expressions like "(set! 'x #t)" no longer yield a crash ** Expressions like "(set! 'x #t)" no longer yield a crash
** Warnings about duplicate bindings now go to stderr
** Build problems on Solaris fixed ** Build problems on Solaris fixed
* Implementation improvements * Implementation improvements

View file

@ -1,3 +1,8 @@
2007-09-01 Andy Wingo <wingo@pobox.com>
* boot-9.scm (duplicate-handlers)[warn, warn-override-core]:
Send warnings to `stderr' instead of `stdout'.
2007-08-08 Ludovic Courtès <ludo@gnu.org> 2007-08-08 Ludovic Courtès <ludo@gnu.org>
* boot-9.scm (%record-type-check): Renamed to * boot-9.scm (%record-type-check): Renamed to

View file

@ -3055,7 +3055,7 @@
#f)) #f))
(define (warn module name int1 val1 int2 val2 var val) (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" "WARNING: ~A: `~A' imported from both ~A and ~A\n"
(module-name module) (module-name module)
name name
@ -3077,7 +3077,7 @@
(define (warn-override-core module name int1 val1 int2 val2 var val) (define (warn-override-core module name int1 val1 int2 val2 var val)
(and (eq? int1 the-scm-module) (and (eq? int1 the-scm-module)
(begin (begin
(format #t (format (current-error-port)
"WARNING: ~A: imported module ~A overrides core binding `~A'\n" "WARNING: ~A: imported module ~A overrides core binding `~A'\n"
(module-name module) (module-name module)
(module-name int2) (module-name int2)