--- gforth/table.fs 1998/12/08 22:02:52 1.2 +++ gforth/table.fs 2000/09/23 15:06:03 1.4 @@ -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. @@ -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 ;