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

Fix duplicates handlers for interfaces that use interfaces

Browse source 
* module/ice-9/boot-9.scm (duplicate-handlers): Use module-variable
instead of module-local-variable in the warn-override-core, first, and
last handlers.  Fixes #47084 mostly, though relative to pre-3.0 there is
still a difference in that a module needs to explicitly declare which
bindings are intended as replacements -- a binding being a replacement
is a property of the module in 3.0, rather than the variable as was the
case before 3.0.
This commit is contained in:
Andy Wingo 2021-04-28 22:04:37 +02:00
parent d0eed15b28
commit 19f38a38fd
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/ice-9/boot-9.scm
View file

@ -4152,13 +4152,13 @@ but it fails to load."
(module-name module)
(module-name int2)
name)
(module-local-variable int2 name))))
(module-variable int2 name))))
(define (first module name int1 val1 int2 val2 var val)
(or var (module-local-variable int1 name)))
(or var (module-variable int1 name)))
(define (last module name int1 val1 int2 val2 var val)
(module-local-variable int2 name))
(module-variable int2 name))
(define (noop module name int1 val1 int2 val2 var val)
#f)