Return to int.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.98, 2003/02/17 22:42:09 | version 1.99, 2003/02/17 22:45:15 |
---|---|
Line 731 Defer .status | Line 731 Defer .status |
BEGIN | BEGIN |
.status | .status |
['] cr catch if | ['] cr catch if |
>stderr ." can't print to stdout, leaving" cr | >stderr cr ." Can't print to stdout, leaving" cr |
\ if stderr does not work either, already DoError causes a hang | \ if stderr does not work either, already DoError causes a hang |
2 (bye) | 2 (bye) |
endif | endif |