![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to debugs.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 ; |