--- gforth/backtrac.fs 2003/01/06 11:18:59 1.7 +++ gforth/backtrac.fs 2003/03/11 21:03:29 1.9 @@ -1,6 +1,6 @@ \ backtrace handling -\ Copyright (C) 1999,2000 Free Software Foundation, Inc. +\ Copyright (C) 1999,2000,2003 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -43,7 +43,8 @@ end-struct buffer% \ 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 ( -- ) backtrace-rs-buffer init-buffer ;