--- gforth/environ.fs 1994/07/27 13:37:01 1.2 +++ gforth/environ.fs 1994/12/21 14:26:23 1.4 @@ -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 1 2constant gforth \ minor mayor version + \ !! RETURN-STACK-CELLS \ !! STACK-CELLS