--- gforth/environ.fs	1997/06/06 17:27:54	1.12
+++ gforth/environ.fs	1997/09/13 12:04:55	1.15
@@ -29,6 +29,12 @@ Create environment-wordlist  wordlist dr
 	false
     endif ;
 
+: e? name environment? 0= ABORT" environmental dependency not existing" ;
+
+: has? name environment? IF ELSE false THEN ;
+
+: $has? environment? IF ELSE false THEN ;
+
 environment-wordlist set-current
 get-order environment-wordlist swap 1+ set-order