[gforth] / gforth / backtrac.fs  

gforth: gforth/backtrac.fs

Diff for /gforth/backtrac.fs between version 1.5 and 1.6

version 1.5, Tue Feb 27 21:17:10 2001 UTC version 1.6, Sat Jan 4 08:26:57 2003 UTC
Line 80 
Line 80 
 : print-bt-entry ( return-stack-item -- )  : print-bt-entry ( return-stack-item -- )
     cell - dup in-dictionary? over dup aligned = and      cell - dup in-dictionary? over dup aligned = and
     if      if
         @ dup look          @ dup threaded>name if
         if              .name drop
           else
               drop dup look if
             .name drop              .name drop
         else          else
             drop body> look \ !! check for "call" in cell before?              drop body> look \ !! check for "call" in cell before?
Line 91 
Line 93 
                 drop                  drop
             then              then
         then          then
           then
     else      else
         drop          drop
     then ;      then ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help