This is the mail archive of the guile@cygnus.com mailing list for the guile project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

Re: Generalized set!

Mikael Djurfeldt writes:
 > 
 > Well, if you have a `slot-set!', I guess you have a `slot-ref' as
 > well.

So is it.
 > 
 > Then you can write:
 > 
 >   (if (not (defined? 'old-slot-ref))
 >     (define old-slot-ref slot-ref))
 > 
 >   (define slot-ref (make-procedure-with-setter old-slot-ref slot-ref))
                       ^^^^^^^^^^^^^^^^^^^^^^^^^^
So that's a new subr that will come with future guile releases?
 > 
 > Now you can do:
 > 
 >   (set! (slot-ref obj slot) val)
 > 
 > which, I suppose, is what you wanted to do.
 > 
Exactly. Thanks.
--
Klaus Schilling