[REBOL] Re: dbms3.r 01
From: robert:muench:robertmuench at: 19-Jan-2002 11:28
> -----Original Message-----
> From: [rebol-bounce--rebol--com] [mailto:[rebol-bounce--rebol--com]]On Behalf Of
> Gregg Irwin
> Sent: Friday, January 18, 2002 10:23 PM
> To: [rebol-list--rebol--com]
> Subject: [REBOL] Re: dbms3.r 01
> Can an object's spec block be extended, or
> modified, after it is created?
Hi, yes it can:
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 M. Münch
IT & Management Freelancer
Mobile: +49 (0)177 2452 802
Fax : +49 (0)721 8408 9112
Web : http://www.robertmuench.de