| version 1.104, Sun Feb 10 14:02:25 2002 UTC | version 1.105, Sun Jun 2 10:31:28 2002 UTC | ||
|---|---|---|---|
|
|
||
| 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 -- ) |
|
||||||||
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |