Return to errore.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.17, 2012/06/23 20:38:01 | version 1.20, 2012/12/31 15:25:19 |
---|---|
Line 1 | Line 1 |
\ ERRORE.FS English error strings 9may93jaw | \ ERRORE.FS English error strings 9may93jaw |
\ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2006,2007 Free Software Foundation, Inc. | \ Copyright (C) 1995,1996,1997,1998,1999,2000,2003,2006,2007,2012 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
Line 38 decimal | Line 38 decimal |
has? OS [IF] | has? OS [IF] |
: >stderr ( -- ) | : >stderr ( -- ) |
r> outfile-id >r stderr to outfile-id | r> outfile-id >r debug-fid to outfile-id |
>exec r> to outfile-id ; | >exec r> to outfile-id ; |
[THEN] | [THEN] |