Howdie! 2013/4/17 Tobias Brandt <[email protected]>
> Hi guys, > > according to the documentation, when GOOPS is loaded, 'display' becomes a > generic function. > > To wit: > > scheme@(guile-user)> (use-modules (oop goops)) > scheme@(guile-user)> (class-of display) > $1 = #<<procedure-class> <primitive-generic> 2cfa3c0> > > But adding a new method has no effect: > > scheme@(guile-user)> (define-class <foo> ()) > scheme@(guile-user)> (define-method (display (self <foo>)) (display > "foo")) > scheme@(guile-user)> (display (make <foo>)) (newline) > #<<foo> 2f428f0> > > You should (define-method (display (self <foo>) port) ...) Best regards
