gforth/errors.fs - diff

Return to errors.fs CVS log

Up to [gforth] / gforth

version 1.8, 1999/02/28 21:31:49	version 1.9, 1999/03/23 20:24:17
Line 30	Line 30
variable next-exception -2048 next-exception !	variable next-exception -2048 next-exception !

: exception ( addr u -- n ) \ exception- gforth	: exception ( addr u -- n ) \ exception- gforth
\G @var{n} is a previously unused THROW value in the range	\G @var{n} is a previously unused @code{throw} value in the range
\G (-4095...-256). Consecutive calls to EXCEPTION return	\G (-4095...-256). Consecutive calls to @code{exception} return
\G consecutive decreasing numbers. Gforth uses the string	\G consecutive decreasing numbers. Gforth uses the string
\G @var{addr u} as error message.	\G @var{addr u} as an error message.
next-exception @ errstring	next-exception @ errstring
next-exception @	next-exception @
-1 next-exception +! ;	-1 next-exception +! ;