--- gforth/environ.fs	1994/07/27 13:37:01	1.2
+++ gforth/environ.fs	1995/04/29 14:51:15	1.6
@@ -1,6 +1,8 @@
 \ environmental queries
 
-wordlist constant environment-wordlist
+\ wordlist constant environment-wordlist
+
+Create environment-wordlist  wordlist drop
 
 : environment? ( c-addr u -- false / ... true )
     environment-wordlist search-wordlist if
@@ -22,7 +24,7 @@ MAX-CHAR constant /COUNTED-STRING
 ADDRESS-UNIT-BITS cells 2* 2 + constant /HOLD
 &84 constant /PAD
 true constant CORE
-\ CORE-EXT?
+true constant CORE-EXT?
 1 -3 mod 0< constant FLOORED
 
 1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N
@@ -31,8 +33,15 @@ true constant CORE
 -1 MAX-N 2constant MAX-D
 -1. 2constant MAX-UD
 
+0 1 2constant gforth \ minor major version
+
 \ !! RETURN-STACK-CELLS
 \ !! STACK-CELLS
+\ !! floating-stack
+\ !! 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
 
 forth definitions
 previous