![[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.12, 2003/08/25 14:17:54 | version 1.13, 2006/03/25 18:37:16 |
|---|---|
| Line 41 has? OS [IF] | Line 41 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] | [THEN] |
| : .error ( n -- ) | : .error ( n -- ) |
| [ has? OS [IF] ] | |
| >stderr | >stderr |
| [ [THEN] ] | |
| ErrLink | ErrLink |
| BEGIN @ dup | BEGIN @ dup |
| WHILE | WHILE |