mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2007-09-01 16:54:26 +00:00
parent e9966dbb9f
commit d7c0c26d88
4 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ChangeLog
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

@ -42,6 +42,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

5
ice-9/ChangeLog
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

4
ice-9/boot-9.scm
View file

@ -3063,7 +3063,7 @@ module '(ice-9 q) '(make-q q-length))}."
#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
@ -3085,7 +3085,7 @@ module '(ice-9 q) '(make-q q-length))}."
(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)