version 1.55, 2004/12/31 13:23:57
|
version 1.56, 2005/10/02 11:30:32
|
Line 638 forth definitions
|
Line 638 forth definitions
|
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 forth definitions
|
Line 650 forth definitions
|
>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 |