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 |