Return to debugs.fs CVS log | Up to [gforth] / gforth |
version 1.15, 2006/12/31 13:39:12 | version 1.16, 2007/02/23 22:33:21 |
---|---|
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 ; |