--- gforth/errors.fs 1997/03/13 23:40:31 1.2 +++ gforth/errors.fs 1997/07/06 14:11:21 1.4 @@ -1,6 +1,6 @@ \ Load in error strings -\ Copyright (C) 1995 Free Software Foundation, Inc. +\ Copyright (C) 1995-1997 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -18,7 +18,9 @@ \ along with this program; if not, write to the Free Software \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +[IFUNDEF] linked \ defined by chains.fs?! : linked here over @ a, swap ! ; +[THEN] : ERR" ( n -- ) ErrLink linked @@ -85,3 +87,4 @@ decimal -56 ERR" QUIT" -57 ERR" Error in sending or receiving a character" -58 ERR" [IF], [ELSE], [THEN] error" + \ No newline at end of file