gforth/debugs.fs - diff

Return to debugs.fs CVS log

Up to [gforth] / gforth

version 1.19, 2009/02/17 20:49:49	version 1.21, 2009/05/11 09:50:59
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

Line 65 interpret/compile: ~~ ( -- ) \ gforth ti	Line 65 interpret/compile: ~~ ( -- ) \ gforth ti
\G Prints the source code location of the @code{~~} and the stack	\G Prints the source code location of the @code{~~} and the stack
\G contents with @code{.debugline}.	\G contents with @code{.debugline}.

	:noname ( -- ) stderr to debug-fid defers 'cold ; IS 'cold