gforth/debugs.fs - diff

Return to debugs.fs CVS log

Up to [gforth] / gforth

version 1.15, 2006/12/31 13:39:12	version 1.17, 2007/12/31 17:34:58
Line 1	Line 1
\ Simple debugging aids	\ Simple debugging aids

\ Copyright (C) 1995,1997,1999,2002,2003,2004,2005,2006 Free Software Foundation, Inc.	\ Copyright (C) 1995,1997,1999,2002,2003,2004,2005,2006,2007 Free Software Foundation, Inc.

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

Line 53 defer .debugline ( nfile nline -- ) \ gf	Line 53 defer .debugline ( nfile nline -- ) \ gf
' (.debugline) IS .debugline	' (.debugline) IS .debugline

: .debugline-stderr ( nfile nline -- )	: .debugline-stderr ( nfile nline -- )
stderr >outfile .debugline outfile< ;	['] .debugline stderr outfile-execute ;

:noname ( -- )	:noname ( -- )
current-sourcepos .debugline-stderr ;	current-sourcepos .debugline-stderr ;