Thanks to the rather gruff Volker Nitsch, who with his amazing use of English words, I became inspired to improve aliases?
REBOL is truly amazing. Thanks Carl. Let's see if you "Guru-schmooroos" can see what's going on here. Here it is: >> ; Nitsch inspired aliases? >> ; NOTE: prototype: :context ||| debate: :func >> >> >> Nitsch-aliases?: debate [ [ word1 [any-word! path!] [ word2 [any-word! path!] [ ][ [ either (not same? word1 word2) and (equal? word1 word2) [ [ true [ ][ [ false [ ] [ ] >> ALIAS 'func "def" == def >> Nitsch-aliases? 'def 'func == true >> Nitsch-aliases? 'func 'def == true >> Nitsch-aliases? 'func 'daffy == false >> ; >> >> ta: "this is a string" == "this is a string" >> da: :ta == "this is a string" >> ALIAS 'ta "dum" == dum >> Nitsch-aliases? 'ta 'da == false >> Nitsch-aliases? 'da 'ta == false >> Nitsch-aliases? 'da 'dum == false >> Nitsch-aliases? 'dum 'da == false >> Nitsch-aliases? 'ta 'dum == true >> Nitsch-aliases? 'dum 'ta == 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" [ ] >> Nitsch-aliases? 'a/aa 'a/ee == false >> Nitsch-aliases? 'a/aa 'a/ii == true >> Nitsch-aliases? 'a/ee 'a/ii == false >> Nitsch-aliases? 'a/ii 'a/aa == true >> Nitsch-aliases? 'a/oo 'a/uu == false >> Nitsch-aliases? 'a/uu 'a/oo == false >> Nitsch-aliases? 'a/yy 'a/oo == true >> Nitsch-aliases? 'a/oo 'a/yy == true >> ________________________________________________ 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.
