gforth/debug.fs - diff

Return to debug.fs CVS log

Up to [gforth] / gforth

version 1.11, 1999/03/23 20:24:17	version 1.12, 1999/05/20 13:31:57
Line 143 VARIABLE Unnest	Line 143 VARIABLE Unnest
: dbg \ gforth	: dbg \ gforth
' NestXT IF EXIT THEN (debug) Leave-D ;	' NestXT IF EXIT THEN (debug) Leave-D ;

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

Line 154 VARIABLE Unnest	Line 155 VARIABLE Unnest
: break" \ gforth	: break" \ gforth
postpone s"	postpone s"
postpone (break") ; immediate	postpone (break") ; immediate
	[THEN]