version 1.7, 1995/11/07 18:06:38
|
version 1.8, 1996/07/16 20:57:07
|
Line 23
|
Line 23
|
\ and deleting. Speed is not neccassary at this point. |
\ and deleting. Speed is not neccassary at this point. |
|
|
AVARIABLE ErrLink \ Linked list entry point |
AVARIABLE ErrLink \ Linked list entry point |
0 ErrLink ! |
NIL ErrLink ! |
|
|
: ERR" ( n -- ) |
: ERR" ( n -- ) |
ErrLink linked |
ErrLink linked |
, |
, |
[char] " word count |
[char] " parse |
string, align ; |
string, align ; |
|
|
decimal |
decimal |
|
|
-1 ERR" Aborted" |
-1 ERR" Aborted" |
ErrLink @ unlock reloff lock \ make sure that the terminating 0 is not relocated |
|
-3 ERR" Stack overflow" -4 ERR" Stack underflow" |
-3 ERR" Stack overflow" -4 ERR" Stack underflow" |
-5 ERR" Return stack overflow" -6 ERR" Return stack undeflow" |
-5 ERR" Return stack overflow" -6 ERR" Return stack undeflow" |
-7 ERR" Do-loops nested too deeply" -8 ERR" Dictionary overflow" |
-7 ERR" Do-loops nested too deeply" -8 ERR" Dictionary overflow" |