gforth/debug.fs - diff

Return to debug.fs CVS log

Up to [gforth] / gforth

version 1.21, 2003/01/20 17:07:37	version 1.23, 2003/03/22 10:04:06
Line 1	Line 1
\ DEBUG.FS Debugger 12jun93jaw	\ DEBUG.FS Debugger 12jun93jaw

\ Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc.	\ Copyright (C) 1995,1996,1997,2000,2003 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 183 VARIABLE Unnest	Line 183 VARIABLE Unnest
' NestXT IF EXIT THEN (debug) Leave-D ;	' NestXT IF EXIT THEN (debug) Leave-D ;

: break:, ( -- )	: break:, ( -- )
lastxt postpone literal ;	latestxt postpone literal ;

: (break:)	: (break:)
r> ['] (_debug) >body >r ;	r> ['] (_debug) >body >r ;