--- gforth/debug.fs 2000/11/12 18:34:39 1.18 +++ gforth/debug.fs 2003/03/22 10:04:06 1.23 @@ -1,6 +1,6 @@ \ DEBUG.FS Debugger 12jun93jaw -\ Copyright (C) 1995,1996,1997,2000 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,2000,2003 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -18,6 +18,8 @@ \ along with this program; if not, write to the Free Software \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. +require see.fs + decimal VARIABLE dbg-ip \ instruction pointer for debugger @@ -181,7 +183,7 @@ VARIABLE Unnest ' NestXT IF EXIT THEN (debug) Leave-D ; : break:, ( -- ) - lastxt postpone literal ; + latestxt postpone literal ; : (break:) r> ['] (_debug) >body >r ;