Return to prims2x.fs CVS log | Up to [gforth] / gforth |
version 1.104, 2002/02/10 14:02:25 | version 1.105, 2002/06/02 10:31:28 |
---|---|
Line 423 wordlist constant prefixes | Line 423 wordlist constant prefixes |
stack r@ type-stack ! | stack r@ type-stack ! |
rdrop ; | rdrop ; |
: type-prefix ( xt1 xt2 n stack "prefix" -- ) | : type-prefix ( addr u xt1 xt2 n stack "prefix" -- ) |
get-current >r prefixes set-current | get-current >r prefixes set-current |
create-type r> set-current | create-type r> set-current |
does> ( item -- ) | does> ( item -- ) |