Return to errore.fs CVS log | Up to [gforth] / gforth |
version 1.11, 1997/02/06 21:22:59 | version 1.12, 1997/02/08 22:58:09 |
---|---|
Line 43 decimal | Line 43 decimal |
IF 2 cells + count type drop exit THEN | IF 2 cells + count type drop exit THEN |
REPEAT | REPEAT |
drop | drop |
[ has-os [IF] ] | |
dup -511 -255 within | dup -511 -255 within |
IF | IF |
256 + negate strsignal type exit | 256 + negate strsignal type exit |
Line 51 decimal | Line 52 decimal |
IF | IF |
512 + negate strerror type exit | 512 + negate strerror type exit |
THEN | THEN |
[ [THEN] ] | |
. ; | . ; |