This is the mail archive of the
guile@sourceware.cygnus.com
mailing list for the Guile project.
Re: GOOPS: inherit method
- To: Sascha Ziemann <szi at aibon dot ping dot de>
- Subject: Re: GOOPS: inherit method
- From: Eric Moore <moore at chem dot cmu dot edu>
- Date: Mon, 13 Mar 2000 06:23:00 -0500 (EST)
- Cc: guile at sourceware dot cygnus dot com
- References: <7u3dpvglz6.fsf@olivia.aibon.ping.de>
>>>>> "Sascha" == Sascha Ziemann <szi@aibon.ping.de> writes:
Sascha> Hi, How can I inherit a method? It works with change-class on
Sascha> a clone of the original object, but I would prefer a way to
Sascha> call the method without allocating space for a copy of the
Sascha> object.
I think you're looking for this:
(define-method str ((obj <2D>))
(string-append ("{" (next-method) ";"
(number->string (slot-ref obj 'y)) "}")))
-Eric