gforth/debugs.fs - diff

Return to debugs.fs CVS log

Up to [gforth] / gforth

version 1.13, 2005/12/31 15:46:08	version 1.14, 2006/12/28 14:52:20
Line 52 defer .debugline ( nfile nline -- ) \ gf	Line 52 defer .debugline ( nfile nline -- ) \ gf

' (.debugline) IS .debugline	' (.debugline) IS .debugline

	: .debugline-stderr ( nfile nline -- )
	stderr >outfile .debugline outfile< ;

:noname ( -- )	:noname ( -- )
current-sourcepos .debugline ;	current-sourcepos .debugline-stderr ;
:noname ( compilation -- ; run-time -- )	:noname ( compilation -- ; run-time -- )
compile-sourcepos POSTPONE .debugline ;	compile-sourcepos POSTPONE .debugline-stderr ;
interpret/compile: ~~ ( -- ) \ gforth tilde-tilde	interpret/compile: ~~ ( -- ) \ gforth tilde-tilde
\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}.