[gforth] / gforth / backtrac.fs  

gforth: gforth/backtrac.fs

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

version 1.6, Sat Jan 4 08:26:57 2003 UTC version 1.7, Mon Jan 6 11:18:59 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 threaded>name if          @ dup threaded>name dup if
             .name drop              .name drop
         else          else
             drop dup look if              drop dup look if

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help