segfault in GOOPS/C function

On Guile 1.8.1 the following: ;; hurt-me.scm -- (define-module (this) #:use-module (oop goops)) (define-class ()) (define-class ()) (define-method (doit (o ) a b) #f) (define-method (doit (o ) c d) #f) (define args (list (make ) 1 2)) (define p (compute-applicable-methods doit args)) (

unfinished functions in GOOPS

In the file "goops.scm" APPLY-METHOD, APPLY-METHODS and APPLY-GENERIC are incomplete/have bugs; for example: (define-method (apply-method (gf ) methods build-next args) (apply (method-procedure (car methods)) (build-next (cdr methods) args) arg