--- gforth/table.fs 2000/09/23 15:06:03 1.4 +++ gforth/table.fs 2001/01/28 16:54:55 1.6 @@ -16,14 +16,14 @@ \ You should have received a copy of the GNU General Public License \ along with this program; if not, write to the Free Software -\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. require hash.fs \ table (case-sensitive wordlist) : table-find ( addr len wordlist -- nfa / false ) - >r 2dup r> bucket @ (tablefind) ; + >r 2dup r> bucket @ (tablelfind) ; Create tablesearch-map ( -- wordlist-map ) ' table-find A, ' hash-reveal A, ' (rehash) A, ' (rehash) A,