--- gforth/environ.fs	2000/11/29 19:43:07	1.26
+++ gforth/environ.fs	2003/01/20 17:07:37	1.30
@@ -41,10 +41,10 @@ vocabulary environment ( -- ) \ gforth
 
 : e? name environment? 0= ABORT" environmental dependency not existing" ;
 
-: has? name environment? 0= IF false THEN ;
-
 : $has? environment? 0= IF false THEN ;
 
+: has? name $has? ;
+
 environment-wordlist set-current
 get-order environment-wordlist swap 1+ set-order
 
@@ -107,7 +107,6 @@ version-string 2constant gforth ( -- c-a
     [ forthstart 5 cells + ] literal @
     [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;
 
-\ !! max-float
 15 constant #locals \ 1000 64 /
     \ One local can take up to 64 bytes, the size of locals-buffer is 1000
 maxvp constant wordlists