--- gforth/table.fs 1998/12/08 22:02:52 1.2 +++ gforth/table.fs 2000/09/23 15:46:59 1.5 @@ -1,6 +1,6 @@ \ table fomerly in search.fs -\ Copyright (C) 1996,1997 Free Software Foundation, Inc. +\ Copyright (C) 1996,1997,1999 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -16,7 +16,7 @@ \ 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 @@ -28,7 +28,7 @@ require hash.fs Create tablesearch-map ( -- wordlist-map ) ' table-find A, ' hash-reveal A, ' (rehash) A, ' (rehash) A, -: table ( -- wid ) - \g create a case-sensitive wordlist +: table ( -- wid ) \ gforth + \g Create a case-sensitive wordlist. tablesearch-map mappedwordlist ;