Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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