[gforth] / gforth / debug.fs  

gforth: gforth/debug.fs

Diff for /gforth/debug.fs between version 1.22 and 1.23

version 1.22, Sun Mar 9 15:16:47 2003 UTC version 1.23, Sat Mar 22 10:04:06 2003 UTC
Line 183 
Line 183 
     ' 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 ;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help