[REBOL] Re: IOS data
From: robert:muench:robertmuench at: 3-Oct-2001 11:26
> -----Original Message-----
> From: [rebol-bounce--rebol--com] [mailto:[rebol-bounce--rebol--com]]On Behalf
> Of Petr Krenzelok
> Sent: Tuesday, October 02, 2001 11:55 AM
> To: [rebol-list--rebol--com]
> Subject: [REBOL] Re: IOS data
> How?
> value? obj/word ??? If word doesn't exist, it fails ... or - in obj 'word?
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]
]
Robert
