[REBOL] Re: finest-same?
From: lmecir:mbox:vol:cz at: 17-Feb-2003 16:17
Hi Romano,
<<Romano>>
identical-w?: func [a [word!] b [word!]][
identical? get/any a get/any b
]
finest-same?: func [a [word!] b [word!]][
if identical-w? a b [
if series? get/any a [return true]
if same-references? a b [return true]
]
false
]
<</Romano>>
I think, that your function compares words. An equvivalent rewrite:
finest-same?: func [a [word!] b [word!]] [
found? all [
identical-w? a b
any [
series? get/any a
same-references? a b
]
]
My description of your function:
the function finds two words equivalent, if they both refer to one value and the value
is either a series or both words are same references. The IDENTICAL? equivalence is finer,
any time IDENTICAL? finds two words identical, you will find out, that they are FINEST-SAME?
too.
