--- gforth/glocals.fs 2004/12/31 13:23:57 1.55 +++ gforth/glocals.fs 2005/12/31 15:46:08 1.57 @@ -1,6 +1,6 @@ \ A powerful locals implementation -\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -638,7 +638,7 @@ forth definitions 2drop endif ; -: >definer ( xt -- definer ) +: >definer ( xt -- definer ) \ gforth \G @var{Definer} is a unique identifier for the way the @var{xt} \G was defined. Words defined with different @code{does>}-codes \G have different definers. The definer can be used for @@ -650,7 +650,7 @@ forth definitions >code-address then ; -: definer! ( definer xt -- ) +: definer! ( definer xt -- ) \ gforth \G The word represented by @var{xt} changes its behaviour to the \G behaviour associated with @var{definer}. over 1 and if