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

[REBOL] word list

From: peoyli::algonet::se at: 24-Apr-2001 0:10

Hi, I've tried to use a part of rebdoc.r to generate a list of all words before and after a function call.. The problem is that I also get a million of words that has no values in my lists, and this makes the function unusable for the purpose I was thinking of. The purpose was to generate a list before a function call, and compare it to a list generated afterwards, to see if a function by mistake has created new words. gen-word-list: func [ {Generate a list of all words} /local word-list words ][ word-list: make block! 1200 words: first system/words while [not tail? words] [ append word-list first words words: next words ] sort word-list ] Even if I unset something after use, I still get this word in the list generated after the word has been removed.
>> unset 'a >> word-list: gen-word-list >> a: "test" >> word-list2: gen-word-list >> probe difference word-list word-list2
>> find word-list2 'b
== none
>> b: "test" >> word-list: gen-word-list >> find word-list 'b
== [b back backlog...
>> probe difference word-list word-list2
>> unset 'b >> word-list: gen-word-list >> find word-list 'b
== [b back backlog... ... Is there any way to 'clean up' system/words from unused stuff ? /PeO