Now I feel stupid. Thanks!
On 17 April 2013 23:03, Panicz Maciej Godek <[email protected]> wrote: > 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 > >
