Diff for /gforth/debug.fs between versions 1.10 and 1.13

version 1.10, 1999/02/24 11:05:16 version 1.13, 1999/05/20 13:56:10
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]

Removed from v.1.10  
changed lines
  Added in v.1.13


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>