--- gforth/environ.fs 1994/07/27 13:37:01 1.2 +++ gforth/environ.fs 1994/11/17 15:53:11 1.3 @@ -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 @@ -31,6 +33,8 @@ true constant CORE -1 MAX-N 2constant MAX-D -1. 2constant MAX-UD +0 0 2constant gforth \ minor mayor version + \ !! RETURN-STACK-CELLS \ !! STACK-CELLS