Return to debugs.fs CVS log | Up to [gforth] / gforth |
version 1.24, 2011/12/31 15:29:25 | version 1.25, 2012/08/09 23:58:52 |
---|---|
Line 49 defer .debugline ( nfile nline -- ) \ gf | Line 49 defer .debugline ( nfile nline -- ) \ gf |
printdebugdata | printdebugdata |
cr ; | cr ; |
[IFUNDEF] debug-fid | |
stderr value debug-fid ( -- fid ) | stderr value debug-fid ( -- fid ) |
\G (value) Debugging output prints to this file | \G (value) Debugging output prints to this file |
[THEN] | |
' (.debugline) IS .debugline | ' (.debugline) IS .debugline |