Diff for /gforth/Attic/backtrace.fs between versions 1.1 and 1.2

version 1.1, 1999/01/03 21:48:36 version 1.2, 1999/02/21 14:55:43
Line 83  IS store-backtrace Line 83  IS store-backtrace
     swap u+do      swap u+do
         cr          cr
         i @ dup hex. ( return-addr? )          i @ dup hex. ( return-addr? )
         cell - dup in-dictionary? if          cell - dup in-dictionary? over dup aligned = and
             @ look drop .name          if
               @ look
               if
                   .name
               else
                   drop
               then
         else          else
             drop              drop
         then          then

Removed from v.1.1  
changed lines
  Added in v.1.2


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