Return to environ.fs CVS log | Up to [gforth] / gforth |
version 1.13, 1997/07/06 14:11:20 | version 1.14, 1997/08/31 19:31:28 |
---|---|
Line 31 Create environment-wordlist wordlist dr | Line 31 Create environment-wordlist wordlist dr |
: e? name environment? ; immediate | : e? name environment? ; immediate |
: has? name environment? IF ELSE false THEN ; | |
: $has? environment? IF ELSE false THEN ; | |
environment-wordlist set-current | environment-wordlist set-current |
get-order environment-wordlist swap 1+ set-order | get-order environment-wordlist swap 1+ set-order |