Diff for /gforth/backtrac.fs between versions 1.8 and 1.10

version 1.8, 2003/03/09 15:16:46 version 1.10, 2004/11/28 20:35:06
Line 43  end-struct buffer% Line 43  end-struct buffer%
   
 \ backtrace stuff  \ backtrace stuff
   
 create backtrace-rs-buffer buffer% %allot \ copy of the return stack at throw  create backtrace-rs-buffer buffer% %allot drop
   \ copy of the return stack at throw
   
 : init-backtrace ( -- )  : init-backtrace ( -- )
     backtrace-rs-buffer init-buffer ;      backtrace-rs-buffer init-buffer ;
Line 110  IS store-backtrace Line 111  IS store-backtrace
 :noname ( -- )  :noname ( -- )
     backtrace-rs-buffer 2@ over + print-backtrace ;      backtrace-rs-buffer 2@ over + print-backtrace ;
 IS dobacktrace  IS dobacktrace
   
   :noname
       r@ >stderr cr ." deferred word " print-bt-entry ." is uninitialized" ;
   is defer-default

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


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