Return to debugs.fs CVS log | Up to [gforth] / gforth |
version 1.19, 2009/02/17 20:49:49 | version 1.20, 2009/02/20 19:32:35 |
---|---|
Line 49 defer .debugline ( nfile nline -- ) \ gf | Line 49 defer .debugline ( nfile nline -- ) \ gf |
printdebugdata | printdebugdata |
cr ; | cr ; |
stderr value debug-fid | stderr value debug-fid ( -- fid ) |
\ file-id to output debugging stuff to | \G (value) Debugging output prints to this file |
' (.debugline) IS .debugline | ' (.debugline) IS .debugline |