--- gforth/debugs.fs 2004/05/14 17:09:22 1.10 +++ gforth/debugs.fs 2005/10/02 11:30:32 1.12 @@ -1,6 +1,6 @@ \ Simple debugging aids -\ Copyright (C) 1995,1997,1999,2002,2003 Free Software Foundation, Inc. +\ Copyright (C) 1995,1997,1999,2002,2003,2004 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -56,7 +56,7 @@ defer .debugline ( nfile nline -- ) \ gf current-sourcepos .debugline ; :noname ( compilation -- ; run-time -- ) compile-sourcepos POSTPONE .debugline ; -interpret/compile: ~~ \ gforth tilde-tilde +interpret/compile: ~~ ( -- ) \ gforth tilde-tilde \G Prints the source code location of the @code{~~} and the stack \G contents with @code{.debugline}.