--- gforth/environ.fs	1997/07/06 14:11:20	1.13
+++ gforth/environ.fs	1997/08/31 19:31:28	1.14
@@ -31,6 +31,10 @@ Create environment-wordlist  wordlist dr
 
 : e? name environment? ; immediate
 
+: 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