gforth: gforth/table.fs

1 :	jwilke	1.1	\ table fomerly in search.fs
2 :
3 :			require hash.fs
4 :
5 :			\ table (case-sensitive wordlist)
6 :
7 :			: table-find ( addr len wordlist -- nfa / false )
8 :			>r 2dup r> bucket @ (tablefind) ;
9 :
10 :			Create tablesearch-map ( -- wordlist-map )
11 :			' table-find A, ' hash-reveal A, ' (rehash) A, ' (rehash) A,
12 :
13 :			: table ( -- wid )
14 :			\g create a case-sensitive wordlist
15 :			tablesearch-map mappedwordlist ;
16 :