Return to errore.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.17, 2012/06/23 20:38:01 | version 1.18, 2012/07/27 23:28:10 |
---|---|
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 errfile-id to outfile-id |
>exec r> to outfile-id ; | >exec r> to outfile-id ; |
[THEN] | [THEN] |