mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-04 11:10:27 +02:00
* boot-9.scm (duplicate-handlers): Make sure the merge-generics
and merge-accessors handlers are available also before (oop goops) has been loaded. This is so that people can put them as default handlers without worrying about availability.
This commit is contained in:
parent
c9fa174805
commit
65bed4aa84
2 changed files with 31 additions and 21 deletions
|
@ -1,5 +1,10 @@
|
||||||
2003-03-12 Mikael Djurfeldt <djurfeldt@nada.kth.se>
|
2003-03-12 Mikael Djurfeldt <djurfeldt@nada.kth.se>
|
||||||
|
|
||||||
|
* boot-9.scm (duplicate-handlers): Make sure the merge-generics
|
||||||
|
and merge-accessors handlers are available also before (oop goops)
|
||||||
|
has been loaded. This is so that people can put them as default
|
||||||
|
handlers without worrying about availability.
|
||||||
|
|
||||||
* slib.scm (logical:ipow-by-squaring): Removed.
|
* slib.scm (logical:ipow-by-squaring): Removed.
|
||||||
|
|
||||||
* boot-9.scm (ipow-by-squaring): Removed.
|
* boot-9.scm (ipow-by-squaring): Removed.
|
||||||
|
|
|
@ -2879,6 +2879,9 @@
|
||||||
(define (last module name int1 val1 int2 val2 var val)
|
(define (last module name int1 val1 int2 val2 var val)
|
||||||
(module-local-variable int2 name))
|
(module-local-variable int2 name))
|
||||||
|
|
||||||
|
(define (noop module name int1 val1 int2 val2 var val)
|
||||||
|
#f)
|
||||||
|
|
||||||
(set-module-name! m 'duplicate-handlers)
|
(set-module-name! m 'duplicate-handlers)
|
||||||
(set-module-kind! m 'interface)
|
(set-module-kind! m 'interface)
|
||||||
(module-define! m 'check check)
|
(module-define! m 'check check)
|
||||||
|
@ -2887,6 +2890,8 @@
|
||||||
(module-define! m 'warn-override-core warn-override-core)
|
(module-define! m 'warn-override-core warn-override-core)
|
||||||
(module-define! m 'first first)
|
(module-define! m 'first first)
|
||||||
(module-define! m 'last last)
|
(module-define! m 'last last)
|
||||||
|
(module-define! m 'merge-generics noop)
|
||||||
|
(module-define! m 'merge-accessors noop)
|
||||||
m))
|
m))
|
||||||
|
|
||||||
(define (lookup-duplicates-handlers handler-names)
|
(define (lookup-duplicates-handlers handler-names)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue