![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to environ.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 |