In the file "goops.scm" APPLY-METHOD, APPLY-METHODS and
APPLY-GENERIC are incomplete/have bugs; for example:
(define-method (apply-method (gf <generic>)
methods build-next args)
(apply (method-procedure (car methods))
(build-next (cdr methods) args)
args))
does not work, to make it work without NEXT-METHOD:
(define-method (apply-method (gf <generic>)
methods build-next args)
(apply (method-procedure (car methods)) args))
but, obviously, it is not enough.
Those functions are meant to be used when the user's code
subclasses '<generic>', but I do now understand how, but it
seems that the work was left unfinished. Maybe this should
be documented somewhere, or the functions removed from the
export list...
--
Marco Maggi
_______________________________________________
Bug-guile mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/bug-guile
