Return to glocals.fs CVS log | Up to [gforth] / gforth |
version 1.12, 1995/04/29 14:51:19 | version 1.13, 1995/10/07 17:38:15 |
---|---|
Line 475 forth definitions | Line 475 forth definitions |
: definer! ( definer xt -- ) | : definer! ( definer xt -- ) |
\ gives the word represented by xt the behaviour associated with definer | \ gives the word represented by xt the behaviour associated with definer |
over 1 and if | over 1 and if |
does-code! | swap [ 1 invert ] literal and does-code! |
else | else |
code-address! | code-address! |
then ; | then ; |