[REBOL] finest-same?
From: rotenca::telvia::it at: 16-Feb-2003 10:19
Hi Ladislav,
this is a try to find the finest equality in Rebol. Not checked very much.
Note:
These equalities work only for values referenced by a word
and not only for values referenced by a block - like the indentical? of
Ladislav
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
]
---
Ciao
Romano
