gforth/debug.fs - diff

Return to debug.fs CVS log

Up to [gforth] / gforth

version 1.10, 1999/02/24 11:05:16	version 1.12, 1999/05/20 13:31:57
Line 140 VARIABLE Unnest	Line 140 VARIABLE Unnest
THEN	THEN
AGAIN ;	AGAIN ;

: dbg ' NestXT IF EXIT THEN (debug) Leave-D ;	: dbg \ gforth
	' NestXT IF EXIT THEN (debug) Leave-D ;

: break:	has? compiler [IF]
r> ['] (debug) >body >r ;	: break: \ gforth
	r> ['] (debug) >body >r ;

: (break")	: (break")
cr	cr
." BREAK AT: " type cr	." BREAK AT: " type cr
r> ['] (debug) >body >r ;	r> ['] (debug) >body >r ;

: break"	: break" \ gforth
postpone s"	postpone s"
postpone (break") ; immediate	postpone (break") ; immediate
	[THEN]