--- gforth/doc/makedoc.fs 2000/09/23 15:06:07 1.4 +++ gforth/doc/makedoc.fs 2003/08/25 14:17:50 1.8 @@ -1,6 +1,6 @@ \ create a documentation file -\ Copyright (C) 1995,1999 Free Software Foundation, Inc. +\ Copyright (C) 1995,1999,2000,2003 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. \ the stack effect of loading this file is: ( addr u -- ) @@ -68,7 +68,7 @@ s" \ automatically generated by makedoc. : put-doc-entry ( -- ) locals-list @ 0= \ not in a colon def, i.e., not a local name - last @ 0<> and \ not an anonymous (i.e. noname) header + latest 0<> and \ not an anonymous (i.e. noname) header if s" " >fileCR s" make-doc " >file @@ -89,7 +89,7 @@ s" \ automatically generated by makedoc. ELSE drop >in ! THEN - last @ name>string >file + latest name>string >file >file s" )" >file POSTPONE \g