![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to errore.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to errore.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.4, 1998/12/08 22:03:09 | version 1.6, 1999/02/24 11:54:39 |
|---|---|
| Line 34 decimal | Line 34 decimal |
| \ error numbers between -512 and -2047 are for OS errors and are | \ error numbers between -512 and -2047 are for OS errors and are |
| \ handled with strerror | \ handled with strerror |
| has? OS [IF] | |
| : >stderr ( -- ) | : >stderr ( -- ) |
| r> outfile-id >r stderr to outfile-id | r> outfile-id >r stderr to outfile-id |
| >exec r> to outfile-id ; | >exec r> to outfile-id ; |
| [ELSE] | |
| : >stderr ; | |
| [THEN] | |
| : .error ( n -- ) | : .error ( n -- ) |
| >stderr | >stderr |
| cr ." Error: " | |
| ErrLink | ErrLink |
| BEGIN @ dup | BEGIN @ dup |
| WHILE | WHILE |