Addendum: defined?: :value
---- On Tue, 9 May 2006, Pierre Johnson ([EMAIL PROTECTED]) wrote: > > 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. > > > ________________________________________________ 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.
