Spelling has nothing to do with it! 

Two words are aliases if and only if their definitionals are 
equal AND they point to the exact same (one and only one) 
definitional existing within REBOL controlled memory. 

###
All comment about THIS post is welcome. [Especially from the
"gurus" HA HA HA ]
###

>> ; note debate: :func || all-truth?: :all || prototype:
:context

>> incognito?: debate [
[      word1 [any-word! path!]
[      word2 [any-word! path!]
[      ][
[     if all-truth? [defined? 'word1 defined? 'word2] [
[          either (not same? word1 word2) and (equal? word1
word2) [
[                true
[               ][
[                false
[               ]
[         ]
[
[    ]
>> ALIAS 'func "def"
== def
>> incognito? 'func 'daffy
== false
>> incognito? 'func 'def
== true

>> aa: 23
== 23
>> bb: :aa
== 23
>> ALIAS 'aa "dd"
== dd

>> incognito? 'aa 'bb
== false
>> incognito? 'bb 'aa
== false
>> incognito? 'bb 'dd
== false
>> incognito? 'dd 'bb
== false

>> incognito? 'aa 'dd
== true
>> incognito? 'dd 'aa
== true

>> a: prototype [
[    aa: 23
[    ee: 23
[    ALIAS 'aa "ii"
[    oo: "this is a symbol string not a character string.
character is what humans have"
[    uu: :oo
[    ALIAS 'oo "yy"
[    ]
>> incognito? 'aa 'ee
== false
>> ; aa in global and 'ee in prototype's context

>> incognito? 'a/aa 'a/ee
== false
>> incognito? 'a/ee 'a/aa
== false
>> incognito? 'a/ee 'a/ii
== false
>> incognito? 'a/ii 'a/ee
== false
>> incognito? 'a/aa 'a/ii
== true
>> incognito? 'a/ii 'a/aa
== true
>> incognito? 'a/oo 'a/uu
== false
>> incognito? 'a/uu 'a/oo
== false
>> incognito? 'a/oo 'a/yy
== true
>> incognito? 'a/yy 'a/oo
== true

>> incognito? 'a/ee 'a/ee
== true


>> zz: :a
>> alias 'a "ww"
== ww
>> incognito? 'a 'zz
== false
>> incognito? 'a 'ww
== true
>> incognito? 'a/aa 'ww/ii
== true
>> incognito? 'a/aa 'ww/ee
== false

>> wow: make a [
[    pp: "wiz"
[    ]
>> incognito? 'a 'wow
== false
>> incognito? 'a/aa 'wow/ii
== false

________________________________________________
Get your own "800" number
Voicemail, fax, email, and a lot more
http://www.ureach.com/reg/tag
-- 
To unsubscribe from the list, just send an email to 
lists at rebol.com with unsubscribe as the subject.

  • [REBOL] Incognito? The SUPER-Nitsch-Aliases? [and last word... Pierre Johnson

Reply via email to