mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-31 17:30:24 +02:00
* boot-9.scm (default-duplicate-binding-handler): Set default to
'(replace warn last)
This commit is contained in:
parent
fe6ee0528b
commit
6496a6638b
3 changed files with 4 additions and 4 deletions
4
NEWS
4
NEWS
|
@ -79,7 +79,7 @@ The new default behavior of the module system when a name collision
|
||||||
has been detected is to
|
has been detected is to
|
||||||
|
|
||||||
1. Give priority to bindings marked as a replacement.
|
1. Give priority to bindings marked as a replacement.
|
||||||
2. Issue a warning.
|
2. Issue a warning (different warning if overriding core binding).
|
||||||
3. Give priority to the last encountered binding (this corresponds to
|
3. Give priority to the last encountered binding (this corresponds to
|
||||||
the old behavior).
|
the old behavior).
|
||||||
|
|
||||||
|
@ -116,7 +116,7 @@ These two are provided by the (oop goops) module:
|
||||||
|
|
||||||
The default duplicates handler is:
|
The default duplicates handler is:
|
||||||
|
|
||||||
(replace warn last)
|
(replace warn-override-core warn last)
|
||||||
|
|
||||||
A recommended handler (which is likely to correspond to future Guile
|
A recommended handler (which is likely to correspond to future Guile
|
||||||
behavior) can be installed with:
|
behavior) can be installed with:
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
|
|
||||||
* boot-9.scm (ipow-by-squaring): Removed.
|
* boot-9.scm (ipow-by-squaring): Removed.
|
||||||
(default-duplicate-binding-handler): Set default to
|
(default-duplicate-binding-handler): Set default to
|
||||||
'(replace warn last)
|
'(replace warn-override-core warn last)
|
||||||
|
|
||||||
* boot-9.scm (module-make-local-var!): Use module-add!.
|
* boot-9.scm (module-make-local-var!): Use module-add!.
|
||||||
(module-primitive-add!): New function.
|
(module-primitive-add!): New function.
|
||||||
|
|
|
@ -2904,7 +2904,7 @@
|
||||||
(make-mutable-parameter #f))
|
(make-mutable-parameter #f))
|
||||||
|
|
||||||
(define default-duplicate-binding-handler
|
(define default-duplicate-binding-handler
|
||||||
(make-mutable-parameter '(replace warn last)
|
(make-mutable-parameter '(replace warn-override-core warn last)
|
||||||
(lambda (handler-names)
|
(lambda (handler-names)
|
||||||
(default-duplicate-binding-procedures
|
(default-duplicate-binding-procedures
|
||||||
(lookup-duplicates-handlers handler-names))
|
(lookup-duplicates-handlers handler-names))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue