[REBOL] Re: Finding all objects derived from a specific object.
From: anton::wilddsl::net::au at: 29-Oct-2006 1:43
Hi Wayne,
It looks like the misunderstanding is of EXCLUDE,
which makes a copy. Have a look:
>> blk: [10 20 30]
== [10 20 30]
>> blk2: exclude blk [10]
== [20 30]
>> same? blk blk2
== false
The solution is probably, first of all, to use
a block! instead of a list!. Most of us use blocks
for just about everything. I personally have never
seen a great need for using a list! yet. Maybe you
have good reasons for choosing list!, but
g-profiles: copy []
to replace this line:
g-profiles: exclude g-profiles to-list name
with this:
remove find g-profiles name
Also, you don't need to set 'g-profiles again in this line:
g-profiles: append g-profiles name
So removing the set-word, this is all that's left:
append g-profiles name
Let us know how it goes,
Regards,
Anton.