version 1.6, 1998/12/08 22:02:41
|
version 1.7, 1999/02/03 00:10:20
|
Line 29
|
Line 29
|
|
|
variable next-exception -2048 next-exception ! |
variable next-exception -2048 next-exception ! |
|
|
: exception ( addr u -- n ) |
: 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 THROW value in the range |
\G {-4095...-256}. Consecutive calls to EXCEPTION return |
\G (-4095...-256). Consecutive calls to 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 error message. |
next-exception @ errstring |
next-exception @ errstring |