--- gforth/backtrac.fs 2003/03/11 21:03:29 1.9 +++ gforth/backtrac.fs 2004/11/28 20:35:06 1.10 @@ -111,3 +111,7 @@ IS store-backtrace :noname ( -- ) backtrace-rs-buffer 2@ over + print-backtrace ; IS dobacktrace + +:noname + r@ >stderr cr ." deferred word " print-bt-entry ." is uninitialized" ; +is defer-default