1
Fork 0
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:
Mikael Djurfeldt 2003-03-12 19:27:15 +00:00
parent c9fa174805
commit 65bed4aa84
2 changed files with 31 additions and 21 deletions

View file

@ -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.

View file

@ -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)