gforth/kernel/errore.fs - diff

Return to errore.fs CVS log

Up to [gforth] / gforth / kernel

version 1.6, 1999/02/24 11:54:39	version 1.9, 2000/09/23 15:06:10
Line 1	Line 1
\ ERRORE.FS English error strings 9may93jaw	\ ERRORE.FS English error strings 9may93jaw

\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 22	Line 22
\ The errors are defined by a linked list, for easy adding	\ The errors are defined by a linked list, for easy adding
\ and deleting. Speed is not neccassary at this point.	\ and deleting. Speed is not neccassary at this point.

	require ./io.fs
	require ./nio.fs

AVariable ErrLink \ Linked list entry point	AVariable ErrLink \ Linked list entry point
NIL ErrLink !	NIL ErrLink !

Line 62 has? OS [IF]	Line 65 has? OS [IF]
512 + negate strerror type EXIT	512 + negate strerror type EXIT
THEN	THEN
[ [THEN] ]	[ [THEN] ]
. ;	." error " dec. ;