[gforth] / gforth / debug.fs  

gforth: gforth/debug.fs

Diff for /gforth/debug.fs between version 1.10 and 1.11

version 1.10, Wed Feb 24 11:05:16 1999 UTC version 1.11, Tue Mar 23 20:24:17 1999 UTC
Line 140 
Line 140 
                 THEN                  THEN
         AGAIN ;          AGAIN ;
   
 : dbg   ' NestXT IF EXIT THEN (debug) Leave-D ;  : dbg \ gforth
       ' NestXT IF EXIT THEN (debug) Leave-D ;
   
 : break:  : break: \ gforth
         r> ['] (debug) >body >r ;          r> ['] (debug) >body >r ;
   
 : (break")  : (break")
Line 150 
Line 151 
         ." 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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help