gforth/kernel/errore.fs - diff

Return to errore.fs CVS log

Up to [gforth] / gforth / kernel

version 1.3, 1998/08/29 20:46:14	version 1.5, 1998/12/11 22:54:31
Line 1	Line 1
\ ERRORE.FS English error strings 9may93jaw	\ ERRORE.FS English error strings 9may93jaw

\ Copyright (C) 1995 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 34 decimal	Line 34 decimal
\ error numbers between -512 and -2047 are for OS errors and are	\ error numbers between -512 and -2047 are for OS errors and are
\ handled with strerror	\ handled with strerror

	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]

: .error ( n -- )	: .error ( n -- )
>stderr	>stderr