gforth/debugs.fs - diff

Return to debugs.fs CVS log

Up to [gforth] / gforth

version 1.11, 2004/12/31 13:23:57	version 1.12, 2005/10/02 11:30:32
Line 56 defer .debugline ( nfile nline -- ) \ gf	Line 56 defer .debugline ( nfile nline -- ) \ gf
current-sourcepos .debugline ;	current-sourcepos .debugline ;
:noname ( compilation -- ; run-time -- )	:noname ( compilation -- ; run-time -- )
compile-sourcepos POSTPONE .debugline ;	compile-sourcepos POSTPONE .debugline ;
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}.