[gforth] / gforth / glocals.fs  

gforth: gforth/glocals.fs

Diff for /gforth/glocals.fs between version 1.55 and 1.56

version 1.55, Fri Dec 31 13:23:57 2004 UTC version 1.56, Sun Oct 2 11:30:32 2005 UTC
Line 638 
Line 638 
         2drop          2drop
     endif ;      endif ;
   
 : >definer ( xt -- definer )  : >definer ( xt -- definer ) \ gforth
     \G @var{Definer} is a unique identifier for the way the @var{xt}      \G @var{Definer} is a unique identifier for the way the @var{xt}
     \G was defined.  Words defined with different @code{does>}-codes      \G was defined.  Words defined with different @code{does>}-codes
     \G have different definers.  The definer can be used for      \G have different definers.  The definer can be used for
Line 650 
Line 650 
         >code-address          >code-address
     then ;      then ;
   
 : definer! ( definer xt -- )  : definer! ( definer xt -- ) \ gforth
     \G The word represented by @var{xt} changes its behaviour to the      \G The word represented by @var{xt} changes its behaviour to the
     \G behaviour associated with @var{definer}.      \G behaviour associated with @var{definer}.
     over 1 and if      over 1 and if

Generate output suitable for use with a patch program
Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help