--- gforth/backtrac.fs 2003/03/11 21:03:29 1.9 +++ gforth/backtrac.fs 2004/12/01 10:02:59 1.11 @@ -111,3 +111,9 @@ IS store-backtrace :noname ( -- ) backtrace-rs-buffer 2@ over + print-backtrace ; IS dobacktrace + +[ifdef] defer-default +:noname + r@ >stderr cr ." deferred word " print-bt-entry ." is uninitialized" ; +is defer-default +[then] \ No newline at end of file