version 1.3, 1995/02/06 18:14:32
|
version 1.5, 1995/04/20 09:42:49
|
Line 61 ErrLink @ unlock reloff lock \ make sure
|
Line 61 ErrLink @ unlock reloff lock \ make sure
|
-266 ERR" Terminate signal" |
-266 ERR" Terminate signal" |
-267 ERR" User signal 1" |
-267 ERR" User signal 1" |
-268 ERR" User signal 2" |
-268 ERR" User signal 2" |
|
\ error numbers between -512 and -2047 are for OS errors and are |
|
\ handled with strerror |
|
|
|
|
: .error ( n -- ) |
: .error ( n -- ) |
cr ." Error: " |
cr ." Error: " |
ErrLink |
ErrLink |
BEGIN @ dup |
BEGIN @ dup |
WHILE |
WHILE |
2dup cell+ @ = |
2dup cell+ @ = |
IF 2 cells + count type drop exit THEN |
IF 2 cells + count type drop exit THEN |
REPEAT |
REPEAT |
drop . ; |
drop |
|
dup -2047 -511 within |
|
IF |
|
512 + negate strerror type exit |
|
THEN |
|
. ; |
|
|