--- gforth/errors.fs 1997/03/19 18:27:12 1.3 +++ gforth/errors.fs 1997/07/06 14:11:21 1.4 @@ -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