![[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.10, 2000/09/23 15:47:10 | version 1.14, 2006/12/31 13:39:18 |
|---|---|
| Line 1 | Line 1 |
| \ ERRORE.FS English error strings 9may93jaw | \ ERRORE.FS English error strings 9may93jaw |
| \ Copyright (C) 1995,1996,1997,1998,1999 Free Software Foundation, Inc. | \ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2006 Free Software Foundation, Inc. |
| \ This file is part of Gforth. | \ This file is part of Gforth. |
| 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 |