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.8, 1999/12/12 18:35:55
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. ;