> -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of > Gabriele Santilli > Sent: Friday, April 05, 2002 9:19 PM > To: Robert M. Muench > Subject: [REBOL] Re: Business Object Versioning
> Well, I think you already know we can only workaround currently. ;-) Yep... > etc. so I'll try with a different approach. :) > > add-word: func [ > "Create a new object like the old one but with a word added" > object [object!] > word [word!] > ] [ > make object reduce [to-set-word word none] > ] Here is my solution: extend-object: func ['obj-word [word!] 'word [word!] value [any-type!] /local the-obj][ all [not object? the-obj: get obj-word make error! "No object provided."] if in the-obj word [ set in the-obj word value return the-obj ] set obj-word make the-obj reduce [to-set-word word value] ] Looks pretty the same :-)) > rename-word: func [ > ... > > remove-word: func [ > ... Great stuff! Thanks a lot. > template: clear [] ; not recursive, use copy if you need it to recurse I didn't get it here. Can you explain it a bit more? Robert -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.