Return to environ.fs CVS log | Up to [gforth] / gforth |
version 1.12, 1997/06/06 17:27:54 | version 1.14, 1997/08/31 19:31:28 |
---|---|
Line 29 Create environment-wordlist wordlist dr | Line 29 Create environment-wordlist wordlist dr |
false | false |
endif ; | endif ; |
: 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 |