--- gforth/kernel/vars.fs 2006/03/05 14:10:52 1.41 +++ gforth/kernel/vars.fs 2006/12/31 13:39:19 1.44 @@ -1,6 +1,6 @@ \ VARS.FS Kernal variables -\ Copyright (C) 1995,1996,1997,1998,2000,2003 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,1998,2000,2003,2006 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -46,7 +46,7 @@ has? floating [IF] \G @i{c-char} is the character value for a space. \ used by docon:, must be constant -FF Constant /line +has? EC [IF] 40 [ELSE] FF [THEN] Constant /line has? file [IF] 40 Constant c/l @@ -114,7 +114,6 @@ AUser lp0 ( -- a-addr ) \ gforth AUser handler \ pointer to last throw frame has? backtrace [IF] -User backtrace-empty \ true if the next THROW should store a backtrace AUser backtrace-rp0 \ rp at last call of interpret [THEN] \ AUser output